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Creativity is more than just being different... 
Anybody can play weird — that's easy. 
What's hard is to be as simple as Bach. 


Making the simple complicated is commonplace... 
Making the complicated simple -- 
awesomely simple; 


That's creativity. 


-- Charles Mingus, jazz musician (1922-1979) 


The MacFORTH project is dedicated to Alexander Ramsay, 
and proudly bears the Ramsay tartan on its cover. Іп his 
90th year, he is a continuing source of inspiration for the 
road ahead. 
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introduction 
To 


MacFORTH™ 


WELCOME! we are about to make your work more fun. We'll do it by making 
you more productive with results that are easier to attain. The Apple 
Macintosh" (or more fondly "Мас? represents a revolution in the way that 
users interface to computers. Few computer users who have experienced the 
Mac's graphics, windows, menus, or mouse will happily choose to go back to 
the same old alpha screen and keyboard interface. 


In order to provide a consistent user interface across all applications, Apple 
has included a large amount of software features in read-only memory (ROM) 
built into every Macintosh. MacFORTH has been specifically tailored to put 
these functions at your disposal. 


Regardless of your prior programming experience, you will find writing 
programs for the Macintosh to be a new and exciting experience. The 
objective of this manual and the MacFORTH product is to equip you with the 
necessary tools to develop software which fits comfortably within the 
Macintosh environment. 


Learning how to effectively use the Macintosh is in many ways similar to 
learning FORTH. Each is based on extensions to a small set of simple 
concepts. Each requires you to re-orient the way you approach computer 
related applications, and allows you to get better results with less effort. 


In order to learn how to use the Macintosh , we will first teach you how to 


write programs in MacFORTH, and then how to use such programs to interface 
to the Macintosh. | 
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We have included a Computer Aided Instruction Course for those just 
beginning to learn FORTH. The course is designed to help novice FORTH users 
and programmers to understand how to solve problems with MacFORTH. If you 
are an old hand at FORTH, you'll want to go quickly through the course to 
review some of the basics of MacFORTH. 


Creative Solutions has been producing 68000 based FORTH systems since 
1979. The MacFORTH product is a derivative of our Multi-FORTH™ product 
line, specifically tuned to take maximum advantage of the Macintosh features 
and facilities. 


CSI 68000 FORTH Products have been used to solve problems across a wide 
spectrum of applications: 


Airborne Radar Systems 

Telephone Company Circuit Analyzers 
General Accounting Systems 

Video Games 

Nuclear Power Plant Pipe Testers 

Spread Sheet Programs 

Data Base Managers 

Hospital Operating Room Patient Monitoring 
and some of the world's largest ROBOTS 
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Тһе MacFORTH product line is divided into three areas: 


Level | 


For the hobbyist or those just getting started with the Macintosh. The Level 1 
product has been designed to put the tremendous power of the Macintosh at 
your fingertips, without your having to know a lot about programming or 
computers. This and all levels of the MacFORTH product line provide 
stand-alone programming capabilities with the Mac, as well as TRACE, DEBUG, 
and toolbox access. Support of the serial interface and sound capabilities of 
the Mac is also included. 


Level Il 


For the Professional who will be using MacFORTH in her/his work. The Level 2 
product includes many enhancements such as more advanced graphics 
commands, a full 68000 in-line assembler, floating point, and more 
documentation allowing further access to the toolbox. it is specifically 
designed to meet the needs of the professional user. 


Level Ш 


For program developers thinking of either converting existing programs to run 
on the Mac or developing new programs. Level 3 will allow you to do all of 
your program development on the Mac, and then generate run-time only 
versions of your product (contact CSI for details on royalties and other 
arrangements)  Thís version includes support from CSI, additional 
documentation and 250 "right to execute" licenses. 
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The Macintosh: An Appliance Computer 


The Macintosh is intended to be the first mass-market personal computer. It 
is designed to appeal to an audience of non-programmers, including people 
who have traditionally feared and distrusted computers. To achieve this goal, 
the Macintosh must be friendly. The system must dispel any notion that 
computers are difficult to use. Two key ingredients combine in making a 


system easy to use: familiarity and consistency. 


Familiarity means the user easily understands and is comfortable with what 
is expected of her or him at all times. Most Macintosh applications are 
oriented towards common tasks: writing, graphics and paste-up work, ledger 
sheet arithmetic, chart and graph preparation, and sorting and filing. The 
actual environment for performing these tasks already exists in people's 
offices and homes; we mimic that environment to an extent which makes 
users comfortable with the system. Extensive use of graphics plays an 
important part in the creation of a familiar and intuitive environment. 


Consistency means a uniform way of approaching tasks across applications. 
For example, when users learn how to insert text into a document, or how to 
select a column of figures in one application, they should be able to take that 
knowledge with them into other applications and build upon it. Uniformity and 
consistency in the user interface reduces frustration and makes a user more 
at ease with the task at hand. 


Years of software development, testing, and research have gone into the 
definition of the Macintosh user interface. Оп many other computers, since 
little or no user interface aids are built in, each applications programmer 
invents a new and original interface for each program. This leads to many 
different (and usually conflicting) interfaces. 


Apple has attempted to avoid this situation on Macintosh by building tools for 
a versatile, well-tested user interface and placing them in ROM to be used by 
all application programs. There's no strict requirement that an applications 
program must use any or all of the supplied interface tools; but programmers 
who create their own interface do so at the expense of their own development 
time, useable data space, and the overall consistency of the application. 


MacFORTH is able to directly access most of the built-in tool box functions. 
Since the toolbox has been designed for general applicability, often the 
amount of set-up required to perform even a simple function (like adding a 
window or menu item) 15 extensive. We have factored out the most common 
functions (menu, window, mouse, and file operations) and provided you with 
simplified FORTH operators which make them easy to use. 
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МасҒОВТН: 
A High Performance, Interactive Programming Environment 


FORTH is a language, but it is also a tailorable operating system and a set of 
tools for developing and debugging your programs interactively. Since FORTH 
is all of these things at once, it has been accurately described as a 
“programming environment”. 


We feel that FORTH matches the process of human thought more closely than 
any other programming method. Defining your own commands as you go along, 
and using these commands in defining further commands, you actually create 
your own personalized programming environment that is natural to the way 
you think about your applications. 


FORTH gives you as much or as little control over the computer hardware as 
you want, at any level -- from the most powerful application commands down 
to the machine code instructions. Figure 1 illustrates the various levels at 
which comparable programming languages operate. 


MacFORTH is a very powerful 32-bit implementation of FORTH which includes 
the traditional features of FORTH as well as many new innovations. 


Philosophically, FORTH takes a substantially different approach to developing 
computer applications from other languages and operating systems. Most 
other programming systems were designed to teach students how to solve 
simple, self-contained problems on large timesharing or batch mainframe 
computers. FORTH was developed specifically by and for the use of scientific 
and engineering professionals in the solution of difficult real time data 
acquisition and process automation problems. Since its inception over ten 
years ago, FORTH has been hammered into its current form on the hard anvil of 
actual applications experience. What has emerged is a system which 
anticipates competence and technical responsibility by the user and in turn, 
delivers unbridled performance. 


MacFORTH puts the power of the computer in your hands. If you choose to 
execute an endless loop or overwrite your program with data, MacFORTH will 
not stand in your way. Consider the analogy of a power saw. The saw 
substantially reduces the time required to cut a piece of wood to a desired 
Size. It does not protect you however, from cutting in half the sawhorse on 
which the board rests. Avoiding such an obvious error is your responsibility. 
Consider the cost of a saw which was able. to detect sawhorses and turned 
itself off whenever it encountered one -- similar to the tremendous overhead 
involved in many "traditional" computer languages. 
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While using MacFORTH, you will occasionally cause ап error which will 
require а restart of the system. This is the natural result of the learning 
process. As you become more proficient, this will occur less frequently. 


Assembly 
! Language 


System 
Languages 
(ie: C, PL/M 


General Programming 
Languages 
{ ie: BASIC, PASCAL) 


| Application Specific { 
Languages 
( ie: APT, PERT) 


FORTH 
Assembly FORTH'S High Level Language 
Language 


Low High 


| anguage Level 
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Iterative Organization 


The organization of this manual is cyclic, not linear. Before we elaborate, 
let's look at the method most often used for designing FORTH applications. 


The oldest programming approach was simply to write code until you finished. 
Later the fashion was to organize a program into “modules”, then to code each 
of the modules. This approach was named “top down design", and the older 
approach was dubbed "bottom up”. 


FORTH uses a still newer approach. Modularization is part of the method, but 
the "modules" (or skeletal versions of the modules) are actually coded and 
tested at the same time they are designed. You can code a "sketch" of the 
applications, and test to see if your general solution to the problem is 
correct. If not, you simply rewrite the simple outline, and continue testing 
until you're satisfied. Then you can "flesh out" the outline with more detail. 


This process is called "iterative development." On each iteration you solve 
the problem at a deeper level and gather information necessary to avoid 
problems at the next lower level. If you reach a point where insufficient 
information is available, it is easy to interactively explore alternative 
approaches, selecting the best solution at that level. 


We have utilized a similar approach in this manual. The manual is divided 
into two main sections: the User's Guide and the Reference Guide. The 
beginning chapters of the User's Guide show you to how to interact with 
MacFORTH: creating, editing and saving. Later chapters of the User's Guide 
walk you through successively more comprehensive examples, building on 
previously developed skills and introducing the MacFORTH interface to each of 
the major Macintosh features and facilities. The Graphics Results chapter 
introduces graphics, and how to use the extensive set of graphics tools built 
into the Macintosh. 


The User's Guide ends with an example which touches on the major functions 
highlighted by a separate chapter in the Reference Guide. 


The Reference Guide provides in-depth discussion of the MacFORTH interface 
to each of the following Macintosh features: Menus, Windows, File System, 
and Printing/Serial Interface. 


The Reference Guide also discusses Advanced Topics, Error Handling, and 
provides a glossary of all user applicable words in the system. 
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We hope our approach makes learning MacFORTH easy. We know you'll be happy 
with the results. 


Creative Solutions solicits any comments in reference to the form, content, 
or accuracy of this manual. Your responses will allow this documentation to 
evolve to better meet the needs of our customers. Please send your comments 
to: 


MacFORTH Product Manager 
Creative Solutions, Inc. 

4701 Randolph Road, Suite 12 
Rockville, MD 20852 
301-984-0262 
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Сһаріег 1: Installation 


Overview 


This chapter will show you how to install MacFORTH" on your computer. It 
will also discuss the files found on your MacFORTH system disk. 


License Agreement 


Before opening the package which contains the MacFORTH System Disc, 
carefully read the License Agreement on the cover of the package. Briefly, it 
states... 


MacFORTH, including this manual and supplied diskette and contents of 
both, is owned exclusively by Creative Solutions, Inc. A copyright is 
registered with the United States Copyright Office, for both the manual 
and the accompanying object code. After paying the license fee, 
agreeing to the terms of the license agreement, and returning the 
attached registration card, you are licensed to use MacFORTH on a 
single computer system. 


You may not provide copies of CSI supplied materials to anyone else for 
any reason. If you transfer your right to use MacFORTH to anyone else, 
you are then no longer licensed to use it yourself. 


We're quite serious about this. The MacFORTH product is the result of an 
enormous amount of work. We have foregone any hardware copy protection 
Scheme for your convenience, we simply encode a seríal number on each disk. 
This allows you to always have a backup іп the event of a media or hardware 
failure and allows us to trace the source of illegal copies. We feel that we 
have produced an outstanding product for the price, and that our customers 
will respect our efforts and the law by adhering to these terms. If the cover 
to the manual that you are reading does not include the distinctive MacFORTH 
red, white and black logo, you are utilizing a copy which was produced in 
violation of US copyright laws. Contact your attorney for instructions on how 
to return this illegally produced material to Creative Solutions. 


Be sure you make a backup of your MacFORTH system disk 
before you use the system! 
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Making а Backup 


Be sure to write protect your original MacFORTH disk before you make a 
backup. This is described in your Macintosh System documentation (on page 89 
- "Locked Disks"). 


Place the MacFORTH disc in your drive and follow the instructions in your 
Macintosh System documentation (on page 81 - “Copying an Entire Disk”). 


When you have made a backup, store the original disk in a safe place and use 
your backup disk. This will protect you in the event of a disc related error. 


Loading MacFORTH 


Before you just start experimenting with the system, you should proceed 
through this manual, trying each example (feel free to try other examples of 
your own on the topic being presented). This may sound a little harsh, but the 
Macintosh is like no other computer. There are many unique features you need 
to know about to make the best use of this new computer. 


When you are ready to load MacFORTH, place the MacFORTH system disk in the 
drive and reset your computer (either press the programmer's reset button, or 
turn the computer off, then back on). 


Loading the MacFORTH System 
To load the MacFORTH system (which loads MacFORTH and the editor), double 


click on either the "MacFORTH 1.1" icon or the “FORTH Blocks" icon. “FORTH 
Blocks" is a MacFORTH document and will load the MacFORTH sytem first, then 
load the source code contaíned in the "FORTH Blocks" file itself. 


The MacFORTH window will appear and you will see the soon-to-be-familiar 
"ok". The arrow cursor will turn into a wristwatch, indicating you should 
wait while the system is extended to include the editor (you will notice that 
when source code 15 loaded from disk, the cursor will turn into a wristwatch 
temporarily). Finally, you will be asked to enter your initials (this is for the 
editor and is explained in more detail in the "Program Editing" chapter). 


оадіпа Only MacFORTH 

If you want to load the MacFORTH system itself, without the editor or any 
other "extras", edit block 1 of the "FORTH Blocks" file and delete (or comment 
out) any commands which load other code. 
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Setting MacFORTH as the “Startup” File 


Finder 1.1 (the current level of the Macintosh operating system) allows you to 
select a file to be automatically loaded when the computer is reset (or turned 
on). To select MacFORTH as the auto-load file, from the Finder, select the 
"MacFORTH 1.1" icon (it will become inverted), and then select the “Set 
Startup" item from the “Special” menu. To verify that MacFORTH will be 
automatically loaded, turn your computer off then on and watch MacFORTH 
load. 


Loading the MacFORTH Demos 
In order to understand the demos better, we highly recommend that you 
complete the Users Guide section of this manual (chapters 1 through 6). 


The demos provide a few graphic and music examples for your amusement. To 
load the demos from the Finder, double click on the "Demo Blocks" file. To 
load the demos from MacFORTH, execute the phrase 

INCLUDE" Demo Blocks" 


The demos provided are: 


1.) Approach 
Spins in the MacFORTH logo. Shows the rotation and scaling features 
of the MacFORTH graphics package. 

2.) Clock 
Displays the current time (as read from the internal clock) in the 
format of an analog clock. Shows real time update of the window. 
You can change the size of the clock by resizing its window. 


3.) Dark Beams 
Displays a series of lines which can create some facinating results. 
Try resizing the window. 


4.) Bouncer 
Displays a bouncing ball in the window. Resize the window for 
different bouncing patterns. 


5.) Spirals 
Displays some geometric doodling. Shows the speed and power of the 
MacFORTH graphics package. The code for this demo fits easily in one 
block of source code. 


6.) Sound 
Plays Bach's two part invention *8. 
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То select the demo you like, activate its window (бу clicking the mouse down 
inside its window) or pull down the music menu. You can see (and modify if 
you like) the source code for the demos by simply editing the ' ‘Demo Blocks" 
file (as descríbed in the Program Editing chapter). 


We provide the source code to the demos for you to use as examples. Feel free 
to modify the code for the purpose of experimentation. We díscuss how to do 
this in the Editing chapter. 


Contents of the MacFORTH System Disk 
In case you're wondering what each of the files on the disc are: 


1.) "MacFORTH 1.1" 
Contains the MacFORTH system itself. When opened from the Finder 
(by double-clicking), it loads MacFORTH, and then the “FORTH Blocks" 
file to extend the system. (By "extending" the MacFORTH system, you 
are simply loading the standard utilities -- and any you might add to 
the load block for the “FORTH Blocks" file.) 


2.) "FORTH Blocks" 
MacFORTH blocks file which contains the source code for some useful 
utilities. It is loaded to extend the MacFORTH system. Modify block 
one of this file if you want to load your application automatically 
when MacFORTH is loaded. 


3.) "Going FORTH" 
MacFORTH blocks file which contains the source code for the Going 
FORTH tutorial. Double-click on this file to load the computer-aided 
instruction course. 


4.) "GF Data" 
Contains the text used in the Going FORTH tutorial. 


5.) "Demo Blocks" 
MacFORTH blocks file which contains the source code for the demos. 


6.) "MacFORTH Folder" 


А Mac folder used to hold files used by MacFORTH. The Finder and 
System are contained in this folder to avoid cluttering up the screen. 
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MacFORTH Customer Support Hotline: (301) 984-3530 


We have established the "MacFORTH Hotline" to assist you with questions 
and/or problems you have concerning the MacFORTH product. Help is available 
between the hours of 1 p.m. and 5 p.m. EST, Monday thru Friday (excluding 
holidays) at (301) 984-3530. 


The following guidelines have been established for the MacFORTH Hotline: 


1.)Only MacFORTH customers who have signed and returned their 
registration cards may use the MacFORTH hotline. If you haven't 
signed and returned your card (the one attached to the disk envelope) 
yet, do it now. 


2.) Know your serial number (its on the original MacFORTH disk you 
received). You need to tell the person answering the hotline your 
name and disk number before you can ask your questions. 


3.) Науе your questions written down in front of you. We allow a 
maximum of 5 minutes per call when others are waiting. This is 
ample time to answer even a long list of questions if they are clear 
and written down. 


4) Please don't use the hotline for marketing questions. This is for 
technical support only. 


If these quidelines seem a bit harsh, please understand. We are happy to 
support valid, registered users who have questions about MacFORTH. 


You can also direct any questions/comments/suggestions in writing to: 
MacFORTH Product Manager 
Creative Solutions, Inc. 
4701 Randolph Road, Suite 12 
Rockville, MD 20878 
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Overview 


This chapter provides the instructions for running the Going FORTH computer 
aided instruction course which is supplied on the MacFORTH system disc. 


The tutorial is designed for everyone. The novice FORTH programmer will 
learn the basics of FORTH, more experienced FORTH programmers will get a 
flavor for running MacFORTH on the Macintosh. 


It is important that you run through the course, as many Macintosh specific 
terms are introduced there. We will assume you have run the course and use 
these terms throughout the manual. 


Preparation 


To run the course, power up your Macintosh with the MacFORTH system disc in 
the drive. Open the "Going FORTH" document (by double clicking in it). While 
it is loading, you will get the message "Loading the Going FORTH Tutorial." Be 
sure you read this chapter before you begin the course (and remember to 
re-size the window). 


Once the course is loaded, you need to shrink the size of the MacFORTH 
window by dragging its size box over to the left. Figure 2.1 shows what your 
screen should look like while running Going FORTH. 


Running the Course 


When you uncover the Going FORTH window, the course will start 
automatically, displaying the first frame. On the right hand side of the 
window you will notice the scroll bar. To move on to the next frame, click 
the arrow in the lower right side of the window. To review previous 
material, click the arrow in the upper right side of the window. 


To move from chapter to chapter, click the mouse down in the shaded area 
above or below the scroll box (the scroll box is the white box in the shaded 
area of the scroll bar). You can also move the scroll box to any position 
within the course by dragging the scroll box up or down. 


If you press any keys while in the Going FORTH window, the Mac will beep at 
you, reminding you that you can only enter keystrokes in the MacFORTH 
window while you are completing the tutorial. 
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If you close the Going FORTH window, you can re-enter the course by selecting 
the “Going FORTH” item from the "Tutorial" menu. 


Thats it! That's all you need to know; the tutorial will give you any 
additional instructions you need, now get going FORTH! 


% Options Tutorial 


Going FORTH Tutorial 


Going FORTH 


А 
Computer-Aided Instruction 
Course on MacFORTH 


by 


Creative Solutions, Inc. 
Copyright 1984 


(click the arraw in the lawer right 
corner to continue) 


Figure 2.1 
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Overview 


This chapter introduces you to one of the most used features of MacFORTH, 
the editor. Using the editor, you can create and save your programs on disc. 
This allows you to create and modify program source code without retyping it 
each time you load the system. The MacFORTH editor uses an editing 
technique similar to MacWrite, so if you are familiar with MacWrite, you will 
be right at home using the MacFORTH editor. 


The MacFORTH editor is used to edit program source files on the disc. We will 
introduce some of the file system commands you will use normally with the 
editor. For an in-depth discussion of the file system and its commands, refer 
to the File System chapter. 


Preparation 


To start this session load the MacFORTH system by resetting your Macintosh 
(power off then on or press programmers reset button on the left side of your 
machine) . With your MacFORTH disc іп the drive, double click on either the 
"MacFORTH 1.1" or the "FORTH Blocks" file in the window that appears on your 
screen (if you have set the MacFORTH file as the startup file, you don't need to 
double click on the "MacFORTH 1.1" icon). When this file loads, it also loads 
the editor from the file "Editor Blocks" automatically. (Remember to enter 
your initials when asked.) 


We'll stress again the importance of the editor to your effectiveness with 
MacFORTH and urge you to spend the time now to understand how it works. 
You should try each example in this chapter before continuing with the 
manual. 


Be sure to restart your computer as instructed above so that the examples in 
this chapter make sense. 


Selecting a File for Editing 


When you loaded the "FORTH Blocks" file from the Finder (if you don't know 
what the finder is, refer to your Macintosh manuals), MacFORTH assigned the 
file to file number 0, opened it and selected it as the current "blocks file". 
The MacFORTH editor allows you to edit the current "blocks file" only. (File 
assignment, opening, selection and file numbers are discussed in more detail 
in the File System chapter. For now, just execute the examples to practice 
using the editor.) 
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Displaying File Assignments 


You can see what files are assigned and opened by executing: 
?FILES 


You сап see that "FORTH Blocks" is assigned to file number 0, that it is open 
(by the capital "0%, and that it is the current "blocks file” (by the capital "B" 
-- this is explained іп more detail in the File System chapter). 


Since the "FORTH Blocks" file is the file you are going to work with in this 
chapter, you don't need to do anything else to continue. For your reference, we 
will discuss how to select a different file for editing. 


Using a Different File to Edit 
If you want to use a different file for editing, execute the USE" command іп 


the following format: 
USE" «file name?" 


USE" assigns the file specified by the name «file name> to the first available 
file number, opens it, and selects it as the current blocks file for editing (if 
it is a blocks file). For example, if you wanted to edit the source code for the 
MacFORTH demos (contained in the file "Demo Blocks"), you would execute 
(don't execute this example now): 

USE" Demo Blocks" 


lectin ifferent Fil dit 
Once a file has been assigned and opened (via the USE" command, for 
example), you simply select it as the file to edit with the SELECT command. 
SELECT is used in the following format: 
«file number? SELECT 


90, for example, if you wanted to edit the program source code contained in 
the file assigned to file number 1 (assuming it is a blocks file), you would 
execute (don't execute this example now): 

1 SELECT 


SELECT acts on a file which has already been assigned a number. USE" should 


be used when that file has not yet had a number assigned to it (e.g. the first 
time you use the file after entering MacFORTH ). 
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Entering the Editor 
There are three ways to enter the editor (don't try any of these techniques 
just yet, simply become familiar with how to enter the editor): 
1.) Execute the EDIT command in the following format: 
X«blockt» EDIT 


ie: (don’t try this example now) 
9 EDIT 


2) Activate the editor window by clicking in it with the mouse. 
3) Pull down the "Edit" menu and select the "Enter Edit" item 
(or execute its equivalent keystroke, command E). 
Exiting the Editor 


There are three ways to exit the editor (don't try any of these techniques just 
yet, simply become familiar with how to exit the editor): 


1) Pull down the "Edit" menu and select "Exit Editor" item (or 
execute its equivalent keystroke, command E) . 


2) Click in another window with the mouse. 


3) Close the editor window by clicking in its close box. 


Block Buffers 


When a block is edited, it is read from disk into memory. The area of memory 
it is kept in during the editing process is called a "block buffer". Each time a 
change is made to the block, it is modified in the block buffer only. When you 
exit the editor, or select another block to edit the block is written to disk. 


Once again, the image of the block you are editing is in memory and not 


updated (written) to the file on disk until you exit the editor or select 
another block to edit. 
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Using the Editor 


The files you will edit are called “block files" because they are made up of a 
sequence of “blocks” (old-time FORTH programmers may prefer the term 
"screens"). A block is the fundamental unit of disc storage used by MacFORTH. 
It is simply a fixed length record containing 1024 characters for programs. 
The "FORTH Blocks" file on the MacFORTH system disc contains the source 
code for some MacFORTH utilities, as well as empty space for your use. 


You should organize your program source code logically into files by 
categories. For example, you can see that we put the MacFORTH utilities іп 
the "FORTH Blocks" file, the demo programs in the "Demo Blocks" file, and the 
Going FORTH tutorial source code in the "Going FORTH" file. By logically 
organizing your source code into files you will find program development 
simplified greatly. 


Practice Editing Block 


In order to illustrate the use of the editor, we have provided a practice block 
for you to work with while completing this chapter. Begin by displaying the 
practice block with the editor. Execute 

5 EDIT 


You should now see on your screen an edit window which looks like figure 3.1 
below: 


BIK* 5 of 23 ;File-Forth Blocks 
( Sample Editing Practice Block ) 


CR ." Loading Editor Practice Black.." 


; PLUS ( niXn2 -- | add пі to n2 and display the result ) 
CR ШЕН. ." plus " DUF , + ." equals " . ; 


CR ." Editor Practice Block Loaded." 


Figure 3.1 
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Editor Window 

The MacFORTH editor uses its own window. The window is large enough to 
display one block of source code in а format!6 lines by 64 characters each for 
a total of 1024 characters (as you can see in Figure 3.1). The following list 
points out the features of the editor (don't try these features just yet, simply 
read through the list to familiarize yourself with each): 


- Title Bar 
Displays the current block number being edited, the total number of 
blocks in the file and the file name. Each time you edit a different 
block thís information is updated to show you exactly what you are 
editing. 


- Close Box 
Lets you close the editor window by clicking in its close box. The 
editor window will reappear the next time you enter the editor. 


- Drag Region 
Allows you to drag the edit window to a new position on the screen 
(remember to keep the entire window visible when editing). 


- Scroll Bar 
The vertical bar on the right hand side of the window is the scroll bar. 
it allows you to scroll up and down within the current program file, 
selecting different blocks for editing. 


- Up Arrow 
Selects the previous block (numbered one less than the current 


block) as the block to edit. Stops on the first block іп the file. 


- Down Arrow 
Selects the next block (numbered one more than the current block) 
as the block to edit. Stops on the last block in the file. 


- Scroll Box 
Drag the scroll box to select another block to edit. Move it up to 
edit lower numbered blocks and down to edit higher numbered ones. 


- Shaded Area 
Click inside the shaded area above or below the scroll box to move 
3 blocks at a time in either direction (up or down). 
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Now try а few of these features. First, click inside the close box. The editor 
window disappears and the MacFORTH window becomes the active window. To 
make the editor window reappear, re-enter the editor by executing (from the 
MacFORTH window): 

5 EDIT 


With the edit window now the active window, here's how to move up in the 
file to block 4: click the up arrow in the scroll bar on the right side of the 
window. Click it once and it will move you up one block in the file ("up in the 
file" meaning to a lower numbered block). You'll see the title of the window 
change to 

BIk* 4 of 23; File= FORTH Blocks 


indicating that you are now displaying block number 4. Return to block 5 for 
editing by clicking the down arrow in the scroll bar once. You can see that 
you have returned to block 5 by the title of the editor window: 

BIk* 5 of 23; File- FORTH Blocks 


You can also move 3 blocks at a time in either direction in the file by clicking 
within the shaded area above or below the scroll! box. Click in the shaded area 
below the scroll box once. You are now editing block 8 (you were previously 
on block 5). 


Each time you edit a new block, the scroll box is moved up or down. Its 
position tells you what block you are editing relative to the start and end of 
the file. 


By dragging the scroll box up or down within the shaded area, you can position 
the editor to edit any block in the file. Try dragging the scroll box to several 
different positions now. Simply drag it to a new location and release the 
mouse button to display the block being edited. 


Moving the scroll box to the top position in the shaded area will position you 
to edit block 0 of the file. The bottom position in the shaded area positions 
you to edit the last block in the file. You can locate a particular block by 
positioning the scroll box in the approximate location from the beginning or 
end of the file. For example; since there are 23 blocks in the "FORTH Blocks" 
file, if you wanted to edit block 12 you would position the scroll box 
approximately half way between the top and bottom of the scroll bar. Try to 
find block 12 now using the above technique. 
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Edit Menu 

The Edit menu provides you with the following options while editing. Each 
item in the menu provides a powerful function at your fingertips (don't try 
these features just yet; simply read through the list to familiarize yourself 
with them). 


Undo (command 7) 
Undoes the previous cut, copy, or paste operation (including any 
changes since the last operation) It actually restores the contents 
of the block to the version since the last cut, copy or paste operation. 


Cut (command X) 
Cuts the current selection range (discussed later in this chapter) 
from the text and places it on the clipboard. (Cut, copy and paste use 
the clipboard for consistency with the Macíntosh environment). 


Copy (command C) 
Copies the current selection range (discussed later in this chapter) to 
the clipboard. 


Paste (command V) 
Inserts the contents of the clipboard to the block at the current 
cursor position and/or replaces the current selection range. 


Stamp (command S) 
Stamps the current block with the current date, as read from the 
internal clock, and initials stored in the user variable INITIALS. Use 
the word @INIT to change the value in INITIALS. DATE displays the 
current initials and date stamp. If the first three characters in 
INITIALS are non-printable ASCII characters or blanks, the stamp 
function is disabled. 


Clean 
Blank fills the contents of the block currently being edited. Use this 
command with caution as you cannot undo it. 


Revert 
Resets the contents of the current block back to the version saved on 
the disc. Use this command with caution as you cannot undo it. 


Enter/Exit Editor (command Е) 
Allows you to enter or exit the editor. 
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Insertion Point 
If you look in the editor window, you will see a flashing vertical bar. This is 
. called the /asertion point Try typing the phrase (type it in only, do not 
press Return): 

This is the insertion point. 


and you'll see it inserted at the insertion point. You can also see that 
everything to the right of the insertion point was shifted over each time a 
character was typed. Characters in the last position on the right were pushed 
right out of the window. Now delete what you just inserted by pressing the 
Backspace key once for each character you just entered (the key will repeat 
automatically if you hold it down). 


You can change the insertion point by pointing with the mouse to the position 
you want to insert text and clicking once. In the edit window, the cursor 
becomes an "I-beam" instead of an arrow to make it easier to select an 
insertion point between characters. Try moving the insertion point to several 
different places in the window now. Remember, position the i-beam cursor 
and click once. Each time you reposition it, the insertion point will be 
marked by the flashing vertical bar. 


Try repositioning the insertion point to several places again, but this time, 
each time you position the cursor, type the phrase “abc” and backspace it 
away to get a feel for inserting and deleting text. 


You can also insert a line at any point by positioning the insertion point and 
pressing the Return key. For example, position the insertion point between 
the words "Sample" and "Editing" in the first line and press Return. 
Everything on the line to the right of the insertion point is shifted down to 
the beginning of the next line, all lines below it are shifted down one line. 
Press the Backspace key once to "glue" the lines back together. When you 
pressed the Return key, you inserted a carriage return. Pressing Backspace 
deleted it. 


When you insert text in a line, all text to the right of it is shifted to the 
right. If you insert a Return, the text after the insertion point and all lines 
below are shifted down one line. You can recover the text that was pushed off 
the end of a line or the bottom of the screen by deleting some text (if off to 
the right) or deleting some lines (if off the bottom). To delete a blank line, 
just position the cursor against the left edge of the editor window and press 
Backspace. 


While you can recover the text that has been pushed out of the window while 
you are editing, only the visible text is saved on the disc when you exit 
the editor. After any operation that saves the data in the disk buffers (stamp, 
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clean, undo, etc. -- explained next) you cannot recover any text that you can't 
see, 


The MacFORTH editor uses a simple, yet powerful "cut and paste" style of 
editing (similar to MacWrite). By now, you can see how to insert and delete 
text at the insertion points by typing in new text or backspacing ít away. 


Selection Ran 
If you are familiar with MacWrite this description will be a review. Cut, Copy 


and Paste operate on a range of selected information (ie: a text string). To 
select items for edit the |-beam cursor should be placed at the beginning of 
the desired text and dragged to the end of the "selection range". 


For example, try entering the following line in the block (put it anywhere you 
like): 
Welcome to the world of MacFORTH editing!!! 


Now remove the word "MacFORTH" by selecting it and “cut"ting it out: click at 
the beginning of “MacFORTH", drag to the end of the word (it is now displayed 
in inverse characters) and release the mouse button when the entire word is 
selected (entirely in inverse characters) Select the "Cut" item from the 
"Edit" menu; the selection range is now deleted and saved on the clipboard. 
Bring it back by selecting "Paste" from the "Edit" menu. 


You can now reposition the insertion point and paste the word "MacFORTH" 
anywhere in the current block. You can even move to a different block and 
paste it in that block! This should give you an idea of the power of the editor. 
You can cut or copy a selection from any block and paste it into any other 
block. 


Cleaning a Block 


The "Clean" item in the "Edit" menu allows you to completely erase the 
current block being edited (filling the block buffer with blanks) THIS 
COMMAND CANNOT BE UNDONE, so use it with caution. You can only 
revert to the version of the block saved on disk. 


Reverting to the Last Version 
The "Revert" item in the "Edit" menu allows you to revert back to the old 


version of the block (from disc). All changes made to the block since it was 
last read in from disc will be lost. THIS COMMAND CANNOT BE UNDONE, 
so use it with caution. 
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The Editor Stamp 

The MacFORTH stamp allows you to mark a block with your initials and the 
current date. Using this method informs you and others who last changed the 
block and what day the change was made. You should “stamp” the screen (by 
selecting the "Stamp" item from the EDIT menu each time you modify a block 
with the editor. 


Loading Blocks 


To load a block from disc, execute the LOAD command in the following form: 
<block*> LOAD 


For example, to load the block you were editing, execute 
5 LOAD 


When a block is loaded, the source code on the screen is interpreted just as if 
you had typed it in from the keyboard. This enables you to mix definitions 
and commands to be executed immediately. 


Error Detection While Loading a Block 


If MacFORTH encounters an error while loading a block (an undefined word, a 
typo, missing delimiter, etc.), it will abort immediately and issue an error 
message. To find where the error occurred, simply enter the editor. The 
insertion point (flashing vertical bar) will be located just after the error. 


For example, if you have the sequence 
QUERTV 


in a block (and it was not a defined word) when you loaded the block, the 
insertion point would be one space after the "Y". This feature is invaluable 
for locating the cause of an error during loading because it shows you where 
MacFORTH encountered the error. 
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Listing Programs 


The following words are provided to enable you to list your programs to the 
display and/or printer. If you have an Apple Imagewriter connected to your 
Mac, select the "Printer" item from the “Options” menu to turn it on. АП 
output to the screen will be sent to the printer as well. 


LIST 
Displays the specified block. The data, screen numbers, and lines of the 
block ( numbered 0-15) are displayed. For example: 
10 LIST 
would list the contents of block 10. 


INDEX 
Displays the first line of a range of blocks. If you follow the convention 
of using the first line of each block as a comment describing the 
contents of the block, INDEX will allow you to see quickly what a 
range of blocks contains. For example: 
9 15 INDEX 

would display the first line of blocks 5-15, with the block numbers 
displayed on the left. 


TRIAD 

Displays three sequential blocks on one page, starting with a block that 
is evenly divisible by three. You specify the number of any block in the 
“triad” that you want to display. For example: 

10 TRIAD 
displays blocks 9, 10 and 11. This enables you to update your program 
listings with only the screens that have changed. The icon used for 
MacFORTH blocks (program) files contain three rectangles to designate 
triad listings. 


SHOW 
Displays a range of blocks (as a series of triads). Given the starting 
and ending blocks to display, SHOW generates a listing of triads. For 
example: 
10 20 SHOW 
would generate a listing of three blocks per page containing the 
specified range of blocks (it would actually list blocks 9-20). 
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Copying Blocks 


The following routines allow you to copy the contents of one block (or blocks) 
to another (or others). 


Single Block Copying 
When copying limited numbers of blocks, use the COPY command in the 


following format: 
«source block®> «destination block®> COPY 


For example, to copy the contents of block 6 to block 5, you would execute: 
65 COPY 


ultiple Blo in 
If more than a couple of blocks need to be copied, a copying utility program is 
available. Load these routines by loading block 10 of the “FORTH Blocks" file. 
To copy a series of blocks from one location on the disc to another, use the 
COPY.BLOCKS in the following format: 
«first? «last? «target» COPY.BLOCKS 


For example, to copy blocks 3 thru 7 to screens 12 thru 16, execute: 
3712 COPV.BLOCKS (just an example; do not try this now!) 


During the copying procedure, you are shown which screens are being accessed 
with the following message: 

555 -> ddd 
where sss is the source block number and ddd is the destination block being 
copied. 


opying Blocks from One File to Another 
Load the block transfer routines by loading block 12 of the “FORTH Blocks" 
file. The word XFER.BLOCKS will allow you to copy blocks between files, 
promting you to enter the required information. You will be asked for the file 
numbers of both files as well as the range of blocks to be transferred. 
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Blank-Filling Blocks 


To blank-fill a single block, select the "Clean" item from the "Edit" menu 
while editing the block. If you want to blank-fill a series of blocks, load the 
block copy routines (if you have already loaded them, you don't need to re-load 
them). You now have the word CLEAR.BLOCKS. it is used іп the following 
format: 

«first? «last? CLEAR.BLOCKS 


For example, to blank-fill blocks 20 thru 25 in the current blocks file, you 
would execute (don't try this example): 
20 25 CLERR.BLOCKS 


Each time a block is cleared, the message 
ccc Cleared 
is displayed, where ccc is the number of the block being cleared. 


Cutting and Pasting to the Notepad 


You can cut, copy and paste selected text to/from the Notepad. This allows 
you to share ASCII data between MacFORTH and any other Macintosh system 
that lets you move data to the notepad. 


To move ASCII data from MacFORTH to the Notepad, enter the editor and cut 
(or copy) the desired text. Select the Notepad item from the apple menu and 
paste the selected text into the Notepad. 


To move ASCII data from the Notepad to MacFORTH, select the Notepad item 


from the apple menu and cut (or copy) the desired text. Enter the editor іп 
MacFORTH and paste the selected text into a block. 
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Overview 


This chapter will give you first-hand experience in programming the 
Macintosh. You will enter a sample program, try it out, make some changes, 
and try it again to see the differences. Don't try to understand each command 
now. The intent of this chapter is to give you a feel for programming the 
Macintosh, not to give a comprehensive description of each command. Later 
chapters will fill in the missing information. For now, just enter the example 
program and enjoy. 


By the time you finish this chapter, you will have created a new menu, defined 
a program to be executed for the window, tracked the mouse, created some 
graphics pictures (and printed them if you have an Apple Imagewriter 
printer), and defined a menu. 


Preparations 


By now you should have completed the Going FORTH tutorial, if you haven't, do 
so now before you continue. You will be instructed to edit some source code 
into the "FORTH Blocks" file. if you skipped the Program Editing chapter, read 
it now before you continue. 


It is important that you complete this chapter in one sitting. 


The only thing you'll need is about 20 minutes of time, your Mac, MacFORTH, 
and you. 


Restart your computer (by turning the power off then on) and load MacFORTH 
by opening the "FORTH Blocks" document from the Finder (by double clicking 
it). When MacFORTH loads, enter your inítials when asked and you'll get "ok". 
You are now ready to start. 
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Finger Paint Example Program 


The example program you will be entering will allow you to create pictures in 
a new window using the mouse. Press the Return key a few times to see 
where your cursor is (some more "ok"s will appear). 


Prior to typing in the following example, resize the MacFORTH window and 
drag it down to the lower two-thirds of your screen (your screen should be 
similar to figure 42, except the Finger Paint window won't be present yet). 
This will expose the editor window. During the course of the following 
example another window will be defined and will appear in the upper left 
corner of the screen. 


One other reminder before you start typing; spaces separate words in FORTH, 
So pay careful attention to spacing in this example. 


You will use blocks 2 thru 4 of the “FORTH Blocks" file to enter the source 
code for this example. ІТ there is already source code in any of the blocks, 
clean the block by selecting the "Clean" item from the "Edit" menu (be sure 
that you are editing the correct block before you clean it). 


Finally, remember to put the comment (in parentheses) in the topmost line of 
the block. 


Create a Window 
Edit the following source code into block 2: 


( Finger Painting Window Definition ) 


NEW.WINDOW SHEET 
" Finger Paint Window" SHEET W.TITLE 


60 5 200 300 SHEET И, BOUNDS 
SIZE.BOX CLOSE.BOX + SHEET W.ATTRIBUTES 
$95 .WINDOW SHEET W.BEHIND 


SHEET ADD. WINDOW 
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Your block should now look like the block in figure 41. If there are 
differences go back into the editor now and correct them before you continue: 


BIK* 2 of 23 ; File=Forth Blocks 
( Finger Painting Window Definition ) 


| 


NEW. WINDGH SHEET 
" Finger Paint Window" SHEET H.TITLE 
60 5 200 300 SHEET И. BOUNDS 
SIZE. ВОН CLOSE.BOX + SHEET H.RTTRIBUTES 
SV8 WINDOW SHEET И. ВЕНІМО 


SHEET ADO. WINDOW 


Figure 4.1 


Now load the block by executing: 
2 LOAD 


At this point a new window will appear in the upper left corner of the screen. 
Resize your MacFORTH window and drag it towards the lower right corner of 


your screen so that both windows are visible (you can also see the editor 
window). Your screen shouid be similar to figure 42. 
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€ Options Edit 


p BIk* 2 of 23 ; File-Forth Blocks | 
; Finger Paint Window Г 


MacFORTH™ 1.1 01984 CSI 


Figure 4.2 


If you click in the new window the system will just beep at you. Click back 
inside the MacFORTH window and continue. 


Track the Mouse 
Edit the following source code into the top of block 3: 


( Finger Painting Source Code ) 
: TRACE.FINGER { --- | word to follow the mouse when down ) 


HIDE. CURSOR 
BEGIN STILL.DOWN WHILE eMOUSEXY DOT REPEAT 


SHOW.CURSOR ; 
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the Window Pr 
Edit the following source code into the bottom of block 3 (under the source 
code for TRACE.FINGER): 


: FINGER.PRIHT ( activate flag -- | program for SHEET ) 
IF BEGIN DO.EUEHTS 
CASE MOUSE.DOWN OF TRACE.FINGER ENDOF 


IN.SIZE.BOX OF PAGE ENDOF 
ENDCASE 
AGAIN 
ELSE 7? SVSBEEP { beep on deactivation ) 
THEM ; 


SHEET ON.ACTIVATE FINGER. PAINT 


Your block should now look like the block in figure 43. If there are 
differences, go back into the editor now and correct them before you continue. 


Bik? 5 of 23 ; File=Forth Blocks 


( Finger Pointing Source Code ) Kr 
: TRRCE.FINGER  ( --- | word to follow the mouse when down 3 p 
HIDE.CURSOR 


BEGIN STILL.DGHH WHILE @MQUSEAY ПОТ REPEAT 
SHüH.CURSOR — ; 


: FINGER.PAINT  ( activate flag -- | program for SHEET ) 

IF BEGIN 00, EUENTS 

CASE  nüUSE.DOHMH OF TRACE.FINGER ЕНШЕ 

IH.SI2E.BüM OF PAGE ENDOF 
ENOCASE 
AGAIN 

ELSE 7 SYSBEEP ( beep on deactivation ) 
THEN ; 


SHEET  üN.RCTIURTE FINGER. FAINT 


Figure 4.3 


Load the block by executing: 
3 LOAD 
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Activate the finger paint window by pointing to it with the mouse and 
Clicking down inside it. When you drag the mouse around in that window, the 
cursor disappears and a line follows where you move the mouse. You can even 
drag outside the window and come back in. When you release the mouse 
button (ie. stop dragging), the cursor re-appears and you don't get a line 
following you anymore. 


Try moving the cursor and clicking in the MacFORTH window now. The Mac 
beeps at you when you de-activate the SHEET window (its title is “Finger 
Paint Window) as you told it to do in FINGER.PAINT. Now resize the SHEET 
window so your drawing space is larger (but leave both windows visible). 


When you resize the SHEET window, the picture you drew is erased and you 
are given a clear space to work in. 


Close the sheet window (by clicking in its close box at the top left corner). 
To make it re-appear, execute (from the MacFORTH window): 
SHEET SHOW. WINDOW 


You can now activate the SHEET window and do some more drawing. 


Re-Title the Window 
Go back to the MacFORTH window (by clicking in it). Now change the title of 
the new window to your name. For example, if your name is Marge, execute: 
" Marge's Artwork” SHEET SET.WTITLE 
or Harry: 
“Harry's Impressions" SHEET SET.WTITLE 
or, if you prefer: 
" Му Very Own Easel" SHEET SET.HTITLE 


Printing the Picture 


You can even print your work of art if you have an Apple Imagewriter printer. 
If you have one connected to your Mac, hold down the command key 
(immediately to the right of the Option Key) and the $ (shift 4) key 
simultaneously. If the Caps Lock key is up, only your sheet is printed, if the 
Caps Lock key 15 down, the entire screen is printed. 
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Define the Pen Size Menu 
As the final addition to the program, create a menu to change the size of the 
pen you are drawing with. Edit the following code into block 4: 


( Pen Size Menu ) 
7 CONSTANT FINGER.SIZE.MENU 


: FINGER.MENU ( --- ) FIHGER.SIZE.MENU DELETE. МЕНИ 
0 " Finger Size " FINGER, SIZE. MENU NEW. MENU 
" Smali;Medium;Large" FINGER.SIZE.MENU APPEND, ITEMS 
ОВАН, МЕНІ). BAR 
FINGER. SIZE. MENU MENU.SELECTION: 0 HILITE. MENU 
GET.WINDOW >R SHEET WINDOW 
CASE 1 OF 1 1 PENSIZE ENDOF 
2 OF 3 3 PENSIZE ENDOF 
3 OF 5 5 PENSIZE ENDOF 
ENDCASE A> WINDOW ; 
FINGER. MENU 


Your block should now look like the block in figure 4.4. If there are any 
differences, go back into the editor now and correct them before you continue. 


BIk* 4 of 23 ; File=Forth Blocks 
en Size Menu ) 
“GNSTANT FINGER. SIZE, MENU 


: FINGER.MENU ¢ --- ) FINGER. ‚МЕНП DELETE . MENU 
0" Finger Size " FINGER. «МЕНІ МЕН, MENU 
" Small ;Medium;Large” FINGER. NEHU APPEND. | TENS 
DRAW. MENU. BAR 
FINGER. SIZE. МЕНИ MENU.SELECTION: O HILITE, MENU 


GET.HINDON >A SHEET WINDOW 
CASE 1 OF | | FENSIZE ЕНШЕ 
2 OF 3 3 PENSIZE ENDOF 
3 üF 5 5 PENSIZE ENDOF 
ENDCRSE A> WINDOW ; 


FINGER. MENU 


Figure 4.4 
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Now load the block by executing: 

4 LOAD 
Now you will see the "Finger Size" menu on your menu bar line. Pull it down 
and select a new finger size. Activate the SHEET window and draw a few 
lines. Return to the “Finger Size” menu and select a new finger size. Draw a 
few more lines and re-select a new finger size. 


When you get tired of the current pattern, re-size the window and start all 
over if you like. 

Summary 

That's it! As we said at the beginning, our intent in this chapter was simply 
to introduce you to some of the features of the Macintosh, not to give a 
detailed description of each function. 

You've seen how simple it is to create anew window, assign a program to the 


window, track the mouse, create graphics pictures (and possibly print the 
result), and create а new menu. 
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Overview 


There are some basic features to the Macintosh you need to understand before 
you can use it effectively. To illustrate these features, we will present a 
series of examples, similar to the method used in Getting Started, but giving 
a more detailed explanation of the commands as they are presented. 


Many of the commands you will use in this chapter will be easy to understand 
at first glance. The example in which the command was introduced should 
make its usage clear. Others will require more explanation. We will explain 
the topic being presented and give any additional information you need to 
know to understand the example. If you want to know more about a particular 
command, refer to either the appropriate reference chapter of this manual or 
the glossary. 


AS you go through this chapter, be sure that you try each example before you 
go on to the next, as we will use each step to build the next (very much like a 
FORTH program). 


Some of the examples are short enough that you can execute them directly 
from the keyboard without saving them (you will be instructed to "execute" 
the example). Others are longer and you may be asked to modify them later. 
To avoid re-typing the entire example, vou will be instructed to save the 
example in a block on disc (using the editor -- you will be instructed to "edit" 
the example, then "load" it). If you skipped over the Editor chapter, stop now 
and read it. We will assume that you know how to use the editor to complete 
this chapter. 


When MacFORTH words are included within text, they are printed in bold face 
capital letters to differentiate them from the rest of the text. We use the 
convention of capitalizing all MacFORTH words. This is by no means 
mandatory, as MacFORTH does not discriminate between upper and lower case 
(ie. WORDS is equivalent to words or Words, or even WoRdS) when 
executing the name of a definition. (If this is important to you, refer to the 
Advanced Topics chapter discussion of the LOWER.CASE option.) 
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Set Up a Work File 


We begin this section by creating a blocks file for you to use. If someone else 
has already gone through this chapter, the file may already exist. 


Displaying the Disk Directory 
Look at the contents of the disc by executing 


INTERNAL DIR 


This will display the contents of the disc directory. 


If the File Exists 
If the file “Work File Blocks" already exists (it is in the directory listing), 
someone else has created it. You only need to assign, open and select it. 
Execute the following (don't forget a space after the quotation marks): 

3 CONSTANT WORK.FILE 

" Work File Blocks" HORK.FILE ASSIGN 

HORK.FILE OPEN ?FILE.ERROR 

HORK.FILE SELECT 


If the File Doesn't Exist 
If the file "Work File Blocks" doesn't exist (it doesn't appear in the directory 
listing), you need to create it. Execute the following (don't forget a space 
after the quotation marks): 

3 CONSTANT WORK.FILE 

"Work File Blocks" WORK.FILE ASSIGN 

WORK.FILE CREATE.BLOCKS.FILE ?FILE.ERROR 

HORK.FILE OPEN ?FILE.ERROR 

12 WORK.FILE APPEND. BLOCKS 

WORK.FILE SELECT 


This will give you a working file named "WORK FILE BLOCKS" with 12 blank 
blocks to use as you complete this chapter. (You may want to keep it around 
as you go through the manual in order to keep any examples you might want to 
reload.) 
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File Commands 

The constant WORK.FILE is used as a convenient reference to the newly 
created file. You should use a constant when referring to a file for the sake 
of readability (it also makes it easier if you want to change its number at a 
later date), 


ASSIGN equates a file name with a file number. Future references to file 
number 3 (using the constant WORK.FILE) will access the file named “Work 
File Blocks". 


?FILE.ERROR verifies the previous file operation and displays an error 
message íf an error has occurred. 


CREATE.BLOCKS.FILE creates the blocks file on disc, making it a bootable 
file. Once a file has been created on the disc, there is no need to re-create it. 


OPEN opens the file as a blocks file and APPEND.BLOCKS alloted 12 blocks 
to the file for use. 


SELECT made the file the current blocks file for editing. 
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Windows 


One of the most innovative features of the Mac is its ability to create and 
display windows. Each window can be used for a different purpose and can 
run its own program. Let's begin this example by resizing the MacFORTH 
window to about two inches high at the bottom of the screen. 


Drag the size box upwards to shrink the window to about two inches high. 
Next drag the entire MacFORTH window down to the bottom of the screen. 
Your screen should now look like figure 5.1 below. 


% Options Edit Finger Size 


m ВІК 23 nf 24 ; File=Farth Blacks 
ui 


MacFORTH™ 1.1 91984 CSI 


Figure 5.1 


Next create a new window named TEST.WINDOW, add it to the display, and 
assign it a program to execute. Execute the following: 

НЕН. WINDON — TEST.HIHDOH 

TEST.WINDOW ADD.WINDOW 


At this point the new window will appear and become the active window. 
Click in the MacFORTH window and continue. 
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NEW.WINDOW created a window definition named TEST.WINDOW. Each 
window created in MacFORTH has an array associated with it which defines 
the window. Information about the size, starting location, program to 
execute, text font, size, mode and style, etc. that pertains to the window is 
stored in this array. When you want to reference your new window, use the 
MacFORTH word TEST.WINDOW which you just created. TEST.WINDOW will 
place the "window pointer" (or "wptr" in stack notation) for this window on 
the stack. 


The MacFORTH routines which manipulate windows require the window 
pointer for the window to be on the stack. This allows the window 
manipulation routines to be used for any window. 


АП windows that can be displayed are kept in a list of windows maintained by 
the Macintosh. ADD.WINDOW inserts the window specified (by its window 
pointer) into the Mac's list of windows, displays it, and makes it the active 
window (unless the W.BEHIND window attribute is set). 


Only one window can be active at a time. АП input/output is by default sent 
to the active window. To activate a new window, simply click the mouse 
down in the window that you want to become active, Click down in the new 
window and then back їп the MacFORTH window. 


The default action of any window when it is activated is to beep for all user 
events (mouse down, keystrokes, etc). The ON.ACTIVATE command allows 
you to specify the program to execute when the window is activated. 
Execute: 

TEST.HINDOH ON.ACTIVATE QUIT 


to specify the program QUIT to execute when TEST.WINDOW is activated. 
QUIT is the program which runs MacFORTH itself (it waits for input, executes 
it, and responds “ок”. Now try clicking in TEST.WINDOW and pressing 
Return. Go back to the MacFORTH window (by clicking in it) and continue. 


You can also activate another window by using the SELECT.WINDOW 
command. SELECT.WINDOW expects the window pointer of the window to be 
selected on the stack. For example, to activate the new window from the 
MacFORTH window, execute: 

TEST. WINDOW SELECT. WINDOW 


and go back to the MacFORTH window by clicking in it. 


You can see that the MacFORTH window has both a size box and a close box; 
the editor window has only a close box, and the new window has neither. 
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These are all attributes about a window that can be included or left off, 
depending on what you want the window to do. 


Try dragging each window around on the screen (if you don't know how to do 
this, run the Guided Tour provided with your Macintosh). Place them in any 
position you like, but be sure each window is visible when you are done. 


Error Handling 


When an error occurs in a window other than the MacFORTH window, the 
MacFORTH window is activated. The error message (if any) is displayed in the 
MacFORTH window, not the window the error occurred in. 


This enables you to do any debugging from the MacFORTH window, allowing 
you to see when and how the error occurred. For example, activate 
TEST. WINDOW and execute: 

QHERTV 


and you will see the error message 
QUERTY ? 


appear in the MacFORTH window because MacFORTH doesn't understand the 
word QWERTY. 


Forgetting a Window 


When you forget a window, it is removed from the Macintosh window list and 
taken off of the display (if visible) Forget your new window now by 
executing: 

FORGET TEST.HINDOU 


Any references to TEST. WINDOW, as with any other forgotten FORTH word 


will not be understood by MacFORTH as it has been removed from the 
dictionary. 
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Window Attributes 


Let's continue by creating a new window to work with. Edit the following 
example into block 2 of your "Work File Blocks" file: 
( New Window Example ) 
NEW.WINDOW EX.WINDOW 
" Example Window" EX.WINDOW W.TITLE 
CLOSE.BOX SIZE.BOX + EX.WINDOW H.RTTRIBUTES 


EX.WINDOW ADD. WINDOW 


Now load it by executing 
2 LOAD 


You should now see a new window titled "Example Window" with a close box 
and size box. 


The default title for a window is “Untitled” (as you saw in the first window 
you created). W.TITLE allows you to assign your own title to a window. 
W.TITLE expects a string address on the stack (the string address was left 
on the stack by the word " ) under the window pointer. By executing 

" Example Window" EX.WINDOW H.TITLE 


in the above example, you assigned the title "Example Window" to the window 
EX. WINDOW (we refer to windows by their FORTH name for claríty.) 


Changing the Window Title 


You can also change the window title after it has been displayed using the 
word SET.WTITLE. For example, execute the following to change the name 
of the new window to "Example Workspace": 

" Example Workspace” EX.WINDOW SET.WTITLE 


Activate the editor window now (by either clicking in it or choosing the 
"Enter Edit" item from the "Edit" menu). Its title is: 
Bik* 2 of 12; File = WORK FILE BLOCKS 


Now edit block 1 by clicking the up arrow of the editor control bar. The title 
of the menu changes to: 
Bik* 1 of 12; File = WORK FILE BLOCKS 


The MacFORTH editor uses the SET.WTITLE command to change the title of 
the editor window each time a different block is displayed. 
EX. WINDOW also has two new features that the previous window you created 
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didn't have: a close box and a size box. Тһе word W.ATTRIBUTES allows you 
to define the features of a window when it is created. These features were 
given to the window when you executed: 

CLOSE.BOM SI2E.BOM + EX.WINDOW И, ATTRIBUTES 


Closing a Window 


When you close a window, it is hidden from view, and the window closest to 
the "front" of the display is activated. Try closing EX. WINDOW now by 
selecting it with the SELECT. WINDOW command and then clicking its close 
box. Execute: 

EX.WINDOW SELECT. WINDOW 


Then click in its close box. When EX.WINDOW disappeared, one of the other 
windows became active. Be sure the MacFORTH window is active by clicking 
in it. 


Hiding and Showing a Window 


From the above example, you saw how you can hide a window by clicking in its 
close box. To make a window re-appear, use the SHOW.WINDOW command. 
SHOW. WINDOW re-displays the window specified by the window pointer 
given. Execute the following to make EX. WINDOW re-appear: 

EX.WINDOW SHOW.WINDOW 


EX. WINDOW is now there, but it is behind the active window, in this case, the 
MacFORTH window. To see EX.WINDOW, close the editor window (enter the 
editor and click in its close box), then close the MacFORTH window by clicking 
іп its close box. There it 15!! Remember, SHOW.WINDOW makes the specified 
window visible, but not active. A “visible” window is оп the desktop, but may 
be currently under another window. 


You can also hide a window with the HIDE.WINDOW command. Like 
SHOW.WINDOW, HIDE.WINDOW expects a window pointer on the stack. 
Return to the MacFORTH window by selecting the "MacFORTH Window" item 
from the "Options" menu. Execute the following to make EX. WINDOW 
disappear: 

EX.WINDOW HIDE.WINDOW 
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Window Bounds 


You can also determine the initial position and size of a window using the 
W.BOUNDS command. Edit the following example into block 3: 
( New Window TEST.WINDOW2 Example ) 


NEW. WINDOW = TEST.WINDON2 
" Test Window 2" TEST.WINDOW2 H.TITLE 
100 150 300 400 TEST.WINDOW2 И. BOUNDS 


TEST.WINDOW2 ADD. WINDOW 


Now load it by executing 
з LOAD 


You created a new window named TEST.WINDOW2, gave it the title "Test 
Window 2", set its starting position to 100,150 relative to the top left corner 
of the screen (which is at 0,0) and made it a window 200 dots by 250 dots 
(400- 150=250). 


The values 100 150 300 400 defined the window size by giving its "tlbr" 
values (for top, left, bottom, right). This is easy to remember, because any 
rectangle has four sides: top, left, bottom, and right. So in the example, the 
top of the window is at 100 dots from the top of the screen, the left side of 
the window is at 150 dots from the left side of the screen, the bottom of the 
window is at 300 dots from the top of the screen, the right side of the 
window is at 400 dots from the left side of the screen. 


The default value assigned to a window as its bounds is 
100 100 200 300 H.BOUNDS 


Hiding the Cursor 


You can hide the cursor (make it invisible) by executing the HIDE.CURSOR 
command. To make it reappear, execute the SHOW.CURSOR command. These 
commands are useful when you don't want the cursor to interfere with the 
process being performed. We used them in the Getting Started chapter finger 
painting example. 


Use them with one important caution in mind, however. The user expects to 
see the cursor move when she or he moves the mouse. If the cursor is hidden, 
it will appear that the system is not responding. if you hide the cursor for a 
time, be sure to make it reappear when you are done. 
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Modifying the Cursor 


You can change the type of cursor (currently an arrow) using the SET.CURSOR 
command. For example, to change the cursor to the wristwatch cursor (the 
cursor displayed when the Mac wants you to wait), execute: 

WATCH SET.CURSOR 


Return to the arrow cursor by executing: 
INIT. CURSOR 


The optional cursors you can select with SET.CURSOR are: 
IBEAM (the cursor used іп the editor) 
WATCH (the wristwatch) 


You can also fetch the current cursor with GET.CURSOR. This is useful for 
the times you want to change the cursor during a specific operation and then 
restore it to its previous image. The following example changes the cursor to 
a wristwatch during a delay loop, then restores the cursor to its previous 
image (enter it into block * 4): 

DELAY  ( --- ) 

GET.CURSOR ( save the current cursor on the 
stack ) 
WATCH SET.CURSOR 10000 0 
DO LOOP ( a delay loop that does nothing ? 
SET.CURSOR ; ( restore the cursor ) 


Load it by executing 
4 LORD 


and try a few tests: 
INIT.CURSOR DELAY 
ІВЕНМ SET.CURSOR DELAY 


Remember, if you try 
WATCH SET.CURSOR DELAY 


you won't know when the test is complete until you get "ok". 


Execute 
INIT. CURSOR 


to return the cursor to the arrow before you continue. 
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Directing Output to а Window 


There are times you want to get information or change some characteristic of 
a window without activating it. The commands WINDOW and GET.WINDOW 
allow you to access the information about a window without activating the 
window. WINDOW selects the window for output from the window pointer 
given on the stack, GET.WINDOW returns the window pointer of the current 
window. 


For example, the window EX.WINDOW was created with the default text font 
and mode (these characteristics are discussed in detail in the graphics 
section, but for now, take our word for it). Тһе MacFORTH window uses text 
font 4, and text mode 2. To set the EX.WINDOW text font and text mode to be 
the same as the MacFORTH window, edit the following definition into block 
five: 

CHANGE.TEST ( --- ) 

GET.HINDOH ( save current wptr on the stack) 

EX.WINDOW WINDOW — ( select EX.WINDOW ) 

CR ." Before...” 


4 TEXTFONT ( select the text font ) 
2 TEXTNODE ( select the text mode ) 
CR ." After“ 


WINDOW — ; — ( restore the window ) 
CHANGE. TEST 


Load it via 
5 LORD 


and CHANGE.TEST is defined then executed. When WINDOW is executed, it 
makes the selected window the current window for output. If you execute 
WINDOW outside of a definition (via the keyboard), be sure to re-select the 
window to the MacFORTH window when you are through (the name of the 
MacFORTH window is SYS. WINDOW). 


You can see that the word "Before" was displayed in the default Macintosh 
font. "After" was displayed in the MacFORTH default textfont. 
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The Mouse 


You can read the current position of the mouse at any time with the word 
@MOUSEXY. The x and y coordinates of the mouse are returned on the stack. 
Here's a word to follow the mouse and report its current position relative to 
the active window: 
TRRCK.MOUSE ( --- ) 
BEGIN CR .“ Mouse At: " @MOUSEXY SWAP 
AGAIN ; 


TRACK . MOUSE 


This will send you into an infinite loop which prints the current position of 
the mouse. Try it out. Move the mouse all over the screen and you'll see the 
position change. 


To get out of this word (or to escape from any endless loop that displays 
output), select the "Abort" item from the “Options” menu. 


Text Output 


So far, we have used ." exclusively as the way to output character data. You 
can also type a string from memory or emit a single character. The word 
EMIT displays the ASCI! character given on the stack (refer to the ASCII 
Chart Appendix for specific ASCII characters) For example, to output an 
asterisk, execute (in decimal): 

42 EMIT 


To type a string from memory, use the words COUNT and TYPE. MacFORTH 
strings contain the length of the string in the first character position, 
followed by the string itself. Given the address of a string, COUNT returns 
the address of the first character in the string under the length of the string 
(in bytes). TYPE displays memory (usually a string address converted by 
COUNT), given an address and length on the stack. 
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Creating а String 
There are many ways to create strings in MacFORTH. Here are the two most 
common methods: 


a.) The word " creates a string (delimited by ") and leaves its address on the 
stack. You have already used this technique when defining window and 
file names earlier in this chapter. The format for this method is: 

" <string>" 


Remember, the leading quote is a MacFORTH word, it must have a space 
before and after it. The space after it is not included in the string, it 
separates the string from the forth word”. The delimiting quote does 
not need a space before it, but it does need a space after it. For example, 
to create and display a string containing the name of the first NASA 
Space Shuttle, you would execute: 

" Columbia" COUNT TYPE 


The disadvantage to this method is that the address of the string is only 
available immediately after the phrase is executed. Use this method 
when you only need the string once. 


b.) You can create a named string using CREATE and ," in the following 
format: 


CREATE «string name? ," <string>" 


Like " , you must have a space immediately following ,". The advantage 
to this method is that you can refer to the string by name. For example, 
to create a string containing the name of the second NASA Space Shuttle, 
execute: 

CREATE SHUTTLE$ ," Challenger" 


To display the name, execute: 
SHUTTLE$ COUNT TVPE 
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Keyboard Input 


MacFORTH allows you to control input from the Keyboard from the level of a 
Single keystroke at a time to input of numbers and strings. 


Input of Keystrokes 
The word KEY traps ASCII keys from the keyboard (command keys are 


executed automatically) and returns the character value on the stack (refer to 
the ASCII chart appendix for the ASCII character values). For example, 
execute: 

KEY . 


and press the "*" key (shifted 8), and you'll see that the ASCII character value 
for asterisk is 42, When KEY executes, it does not display the keystroke (as 
you saw, the * was not displayed). If you want the keystroke displayed, 
duplicate the value (with DUP) and EMIT it. This word is handy for words 
like: 
: ANSWER.Y/N ( -- flag | flag = -1 if V, if anything else ) 
." Answer Ves or No (Y/N) ->" KEV DUP EMIT 89 (V) = ; 


Now try executing ANSWER.Y/N and responding with uppercase Y or N. The flag 
returned on the stack is true if a capital Y was pressed. Now try it out. 
Execute 

RHSHER . V7H 


and press uppercase Y. Now try the same test, but this time press a different 
key. 


If you wanted to look for either an upper or lowercase Y, you could modify 
ANSWER.Y/N and replace the phrase 
89 (V )- 


with: 
DUP 89 (V ) = SWAP 121 (у) * OR 


Number input 

To input a number using MacFORTH, use INPUT.NUMBER. INPUT.NUMBER 
accepts a number of up to the width specified (in digits). After you press 
Return, the number is converted from a string to binary. If the string is a 
valid number, the number is returned on the stack under a true flag. If the 
string is not a valid number, only a false flag is returned. 
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Тгу: 
5 INPUT.NUMBER CR . . 


After you press Return, MacFORTH will be waiting for input. Input the number 
123, then press Return. The numbers on the top of the stack are -1 and 123. 
This indicates a number was input, and the number is 123. Now try another 
example. Execute: 

5 INPUT.HUMBER CR. . 


Again, after you press Return, MacFORTH will be waiting for input. This time, 
input an invalid number. input 
DUD 


Since “DUD" is not a valid number, a 0 was returned on the stack under a -1, 
indicating a string had been input, but it was invalid. 


During conversion of the string to binary, if an invalid numeric character (not 
O thru 9 or minus sign) is encountered, MacFORTH will stop converting the 
string to a number. The number converted up to that point will be returned on 
the stack under a true flag. If the first character is invalid, a zero is 
returned under a true flag. 


If nothing is input (the operator just presses Return), a zero flag is returned. 


If this seems like a lot of things to remember for just inputting a number, you 
could define a word like: 

: RSK.NUMBER ( -- n) 

BEGIN CR ." Input Humber ->" З INPUT.NUMBER UNTIL ; 


When ASK.NUMBER is executed, it will repeat the prompt "Input Number ->" 
until a number is entered, and leave the converted number on the stack. 


String Input 
The word INPUT.STRING accepts a string of characters from the keyboard. It 


takes an address to store the string under maximum number of characters to 
input (up to 255). This way you can control how many characters can be input. 
When INPUT.STRING is executed, the system will stop what it is doing and 
wait for astring to be input. The following example will input a string of up 
to 12 characters to PAD (the MacFORTH scratchpad buffer), and then display 
it. Remember, once you execute INPUT.STRING (by entering the following 
phrase), the system will wait for a string to. be input. Now try: 
PAD {2 INPUT.STRING 


After you press Return, MacFORTH will wait for you to input a string. Input 


Getting Results Page 5 - 16 June 4, 1984 


the string (up to 12 characters) and press Return. То see the string you input, 
execute: 
PAD COUNT TYPE 


You can also use INPUT.STRING to input into a string variable. The following 
example will create a string variable named NAME$ and input a string into it: 
CREATE HRHE$ ," Bill Smith" 
NANE$ COUNT TYPE 


After you enter the next line, the system will wait for you to enter the name 
string, so input the name Joan Jones. 

NANE$ 10 INPUT.STRING 

NANE$ COUNT TYPE 


Warning: |f you try to enter a string longer than the original string into a 
string variable, you will overwrite part of the dictionary and may cause the 
system to crash. Be sure that the string variable you are using is long enough 
by counting the number of characters in it. An easy way to create a string 
variable of the proper length is to use numbers in the string. For example, to 
create a string variable 18 characters long, you could execute: 

CREATE NY$ ," 123456789012345678" ( 18 char string ) 


Window Function 


The default program for a newly created window when it is activated is to 
just beep at all mouse clicks or keystrokes. You can assign a program to a 
window using the ON.ACTIVATE command. When the window is activated, 
the program assigned to it is executed. 


When a window is activated, its program is passed a flag telling whether it is 
being activated (a true flag) or deactivated (a false flag). The program then 
determines what to do and runs. 


When a window is deactivated (by activation of another window, or by closing 
the window), the program it is running is aborted immediately, and the 
activated window is given control to run its program. 


To illustrate this point, activate the MacFORTH window and execute the 
following: 
: TEST ( --- ) 
100 0 DO 1. LOOP CR ." Test Done" ; 


TEST 
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As you would expect, TEST displayed the numbers 0 through 99, output a 
carriage return and displayed "Test Done". 


Execute TEST again, but this time, before it completes, activate EX. WINDOW 
(by clicking in it). As soon as you activated EX. WINDOW, did you see that 
TEST stopped executing and control was passed to EX. WINDOW? Re-activate 
the MacFORTH window and you'll get "ok", indicating TEST was aborted, and 
MacFORTH is waiting for your next request. 


Assigning a Program to a Window 


You assign a program to a window using the ON. ACTIVATE command. This 
program will replace the default program. Any program assigned to a window 
will be passed a flag when the window is activated telling it whether the 
window was activated (a true flag) or deactivated (a false flag). This allows 
you to do any initialization when the window is activated, and perform any 
clean up when the window is deactivated. Your program must be aware of this 
flag and handle any special cases for activation or deactivation. 


To illustrate this feature, assign a program to EX. WINDOW and watch it run. 
Edit the following example into block *6 (and then load it): 


: TEST.RCTIURTE ( flag -- | true if activate, otherwise 
false ) 
IF ." Window fictivated!!" 3 SVSBEEP WORDS 
ELSE ." Window Deactivated!!" 3 SVSBEEP 
THEM ; 


EX.WINDOW ON.ACTIVATE TEST.ACTIVATE 
ON.ACTIVATE assigned the program TEST.ACTIVATE to EX.WINDOW. 


Activate EX.WINDOW by either clicking in it or using SELECT.WINDOW. 
When the window is activated, it will run the program TEST.ACTIVATE, 
which displays the message “Window Activated!!", and executes WORDS. When 
WORDS has completed, it will pass control back to the MacFORTH interpreter, 
which will display "ok". 


Now click down in another window. When the window is deactivated, 
TEST.ACTIVATE will be executed again, but this time a false flag is passed, 
indicating the window is being deactivated. The message “Window 
Deactivated!!" will be displayed, and control is passed to the newly selected 
window. 
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Window Function Template 


Each program assigned to a window should be similar to the following 
template: 
: WINDOW.FUNCTION ( activate flag -- ) 
IF «activate code? 
ELSE <deactivate code? 
THEN ; 


This is discussed in more detail in the Windows chapter. 


Multiple Windows 
The number of windows you can have and display at the same time is limited 


only by the amount of memory available. When a window is activated, its 
program will run until it completes or another window is activated. 


Menus 

Another important innovation of the Macintosh is the use of menus. Menus 
allow you to present a large number of options to the user while at the same 
time not requiring her or him to go through several layers of traditional 
menus or remembering a large number of commands. 


For a detailed discussion of menus, refer to the Menus chapter of this manual. 
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Sound Generation 


The Macintosh supports a wide range of sound capabilities. MacFORTH 
provides access to the ROM sound driver for complex sounds (free form and 4 
voice wave form) as well as versatile support for simple square wave tone 
generation. 


Simple Tone Generation 
In order to generate distinctive sounds to alert the operator or play simple 
melodies, MacFORTH provides the word TONE. TONE expects three things on 
the stack: 

duration\volume\frequency 


Duration is expressed in increments of 1/60 of a second "ticks" and is іп the 
range 0 through 256 (0-4.5 seconds). 


Volume is expressed in a scale from 1 through 256, with 256 representing the 
loudest. 


Frequency is expressed in hertz * 10. 


For example, 
60 128 1000 TONE 


will generate а tone of 100 Hz at half volume for 1 second. Неге are a few 
others to try: 

60 126 100 TONE 

60 128 10000 TONE 

120 64 30000 TONE 


in P 
The word ?SOUND lets you check to see if a tone, or series of tones is 
currently being sounded. 


Aborting Sound in Progress 


The word HUSH allows you to abort any sounds currently being generated. 


Rest Notes 
A frequency of 0 waits the supplied duration with no sound output. 
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Note/Frequency Equivalence 
The following table provides frequency equivalents for notes in an 8 octave 


human tempered scale: 


Octave (frequency* 10) 


Note 0 1 2 3 4 2 6 2 
C 164 327 654 1308 2616 5233 10466 20930 
C* 173 348 693 1386 2772 5544 11087 22175 
0 184 367 734 1468 2957 5873 11747 23493 
ре 194 389 778 1556 3111 6223 12445 24890 
Е 206 412 824 1648 3296 6593 13185 26390 
F 218 437 873 1746 3486 6985 13969 27938 
F* 251 462 925 1850 3700 7700 14800 29600 
б 245 490 980 1960 3920 7840 15680 31360 
0% 260 519 1038 2072 4153 8300 16612 33224 
А 275 550 1100 2200 4400 8800 17600 35200 
А” 291 583 1165 2331 4662 9323 18647 37293 
В 309 617 1235 2469 4939 9878 19755 39511 

Аггау5 


Arrays аге simple! An array is just an area of memory you set aside to store 
data in. You decide what is Kept in the array and how the data is accessed. 
This can range from a very simple, one dimensional array storing single 
characters to a multi-dimensional array storing a complex data item. 


Creating an Array 
To create an array, you simply assign a name to an area of memory and 


allocate the amount of space you need. Use CREATE to name the area and 
ALLOT to allocate the space. For example, to allocate space for an array 
which will hold the ages of 10 of your employees, you would execute: 

CREATE AGES 10 ALLOT 


You now have an area of memory allocated (10 bytes to be exact) to the array 


AGES. Since the values in this array will each fit into 1 byte (0-255), only 
10 bytes are needed. 
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If you wanted to create another array which would keep track of their 
salaries (in the range $15,000-$75,000), each element in the array would 
require 4 bytes (a 32-bit integer). You could create an array named 
SALARIES for this information: 

CREATE SALARIES 10 4% ALLOT 


Why did we specify 10 4% instead of 40? Which do you think describes 10 
elements, each 4 bytes long better?? 


Initializing the Array 
You can initialize an array in many ways. The MacFORTH words ERASE and 


BLANKS are convenient for zero and blank filling arrays. Try zero filling the 
AGES array now by executing: 
AGES 10 ERASE 


(Refer to the MacFORTH Glossary entry for FILL for a general purpose word to 
fill memory with any character.) 


Accessing Data in an Array 


Given the base address of the array (given by its name), you can add the 
appropriate offset to calculate the address of any element in the array. For 
example, to get the first element in the AGES array (with subscript 0), you 
would execute: 

AGES Ce . 


and you'll see that the value is zero. To read the second element in the AGES 
array (with subscript 1), you would execute: 
RGES 1+ Ce 


and so on. Remember, the subscript of an element is zero based, meaning that 
the first element is subscript O, the second, subscript 1, the third, subscript 
2, and so on. This is logical if you think of the start of the array as the base 
of the array, and each element is just an offset from the base. The first 
element is located at the base, the second is located one up from the base, 
and so on... 


Storing data in the AGES array is just as easy. For example, to store 27 in 
the third element (subscript 2), you would execute: 
27 AGES 2+ C! 


Since each element in the AGES array is one byte long, calculating the 
address of any element is as easy as adding its subscript to AGES. In the 
SALARIES array, it is almost as easy. 


Getting Results Page 5 - 22 June 4, 1984 


Each element іп SALARIES is 4 bytes, so you need to multiply the subscript 

by 4 (the length of each element) to get the address of any element in the 

array. For example, to get the first element (subscript 0), you would execute: 
SALARIES e . ( or ) SALARIES 0 4% + е, 


To get the third element (subscript 2), you would execute: 
SALARIES 2 4* +@ 


Why did we use 2 4* + instead of 8? The first expression tells you that you 
were getting the second 4-byte element, the second is ambiguous. Of course, 
the latter is more speed efficient. 


Here's a word to display each element in the AGES array: 
: SHOH.RGES ( --- ) 
100 ІС CRI. ."-" AGES 1+ Ce. LOOP ; 


or, each element in the SALARIES array: 
: SHOH.SRLRRIES ( --- ) 
100 00 CRI. .-" SALARIES | 4% + e . LOOP ; 


You've noticed by now that MacFORTH doesn't check to see if you are using a 
valid subscript when accessing an array. This saves the tremendous overhead 
of checking each and every subscript each and every time an element in the 
array is accessed. It is your responsibility to check the values when 
necessary. 


As we said, what you do with an array and the data you keep in it is 
completely up to you. Arrays in MacFORTH are free-form areas of memory. If 
you are new to FORTH programming, some interesting words to remember 
when using arrays (or any time you are manipulating memory) are: 

e ! We и! Се С! CHOVE 

FELL 


Memory Allocation 


Memory in the Macintosh is allocated from a pool of available memory called 
the “heap.” Although most memory allocation is handled automatically by 
MacFORTH, there are two areas which you must be aware of and explicitly 
control: the object and current vocabulary areas. We leave the allocation of 
memory up to you їп order to give you more control of this resource. 
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When а new word is created іп MacFORTH, the name is placed in the current 
vocabulary area (usually the FORTH vocabulary). The parameter field (which 
includes data and memory address or 68000 instructions used by the word) is 
placed in the object area. 


The current vocabulary and object space are initially allocated 20Kand 10K 
bytes respectively. If youneed more room while compiling a program and you 
get one of the following error messages: 

VOCABULARY FULL! 
or 

OBJECT FULL! 
you will need to resize the appropriate space. 


You don't have to wait until you get one of these errors in order to resize the 
appropriate space. You can monitor both areas as you add definitions by 
executing the word ROOM See how much room you have allocated and 
avallable now by executing 

ROO 


and you will see the display: 
aaaa OF bbbb Object Bytes Available 
сссс OF dddd Current Vocabulary Bytes Available 
eeee Heap Bytes Available 


aaaa is the number of unused object bytes available and bbbb is the total 
number of object bytes allocated. Subtracting aaaa from bbbb will give you 
the number of object bytes used). 


cccc is the number of unused bytes in the current vocabulary and dddd 15 the 
total number of bytes allocated. Subtracting cccc from dddd will give you the 
number of current vocabulary bytes used). 


eeee is the amount of heap space available. This tells you how much memory 
is available for use. 


Resizing Memory 


You explicitly specify the amount of space to be used by either the object 
space or current vocabulary space. This way you can increase or decrease 
either as you needs require. 


To resize the object space, use the command RESIZE.OBJECT, specifying the 
amount of space to allocate to the area, For example, to allocate 10,500 
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bytes to the object area you would execute: 
10500 RESIZE, OBJECT 


To resize the current vocabulary space, use the command RESIZE. VOCAB, 
specifying the amount of space to allocate to the area. For example, to 
allocate 9500 bytes to the current vocabulary space you would execute: 

9500 RESIZE. OBJECT 


After resize either memory area, it is wise to verify the change by executing 
ROOM. You will notice the amount of heap bytes available change as well as 
the amount of space allocated to the area modified. 


If you try to allocate more space than is available, or to shrink either memory 
area smaller than its current contents, MacFORTH will issue an error 
message. Refer to the Error Handling chapter for more information when one 
of these errors occurs. 
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Chapter 6: Graphic Results 
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Overview 


This chapter discusses how to produce graphics images on the Macintosh. It 
is intended to introduce you, through examples, to each of the features of the 
MacFORTH graphics package. We will use the analogy of drawing with a pen on 
a piece of paper for clarity. 


Preparations 


It's a good idea to complete this chapter in one sitting. If you have read 
straight through the preceding chapters you may want to take a break, then 
come back to this chapter. 


As you go through this chapter, let your imagination run free. Explore. Be 
creative! Our examples are intended to trigger your own examples. Of all the 
wonderful things that Macintosh graphics is, perhaps the most important 
feature is that it's fun to use! 


QuickDraw" : A Solid Base 


QuickDraw is the underlying graphics package from which the Macintosh User 
Interface (ie; menus, windows, etc.) is constructed. Written by Bill Atkinson 
at Apple, QuickDraw represents many major innovations in graphics software 
technology. 


QuickDraw lives up to its name! It's very fast. You can do good quality 
animation, fast interactive graphics, and complex yet speedy text displays 
using the full features of QuickDraw. Using QuickDraw, you can divide the 
Macintosh screen into a number of individual windows. Within each window 
you can draw: 


- Straight lines of any length and width. 

- Text characters in a number of proportional and fixed spaced fonts, 
with variations that include boldface, italics, underline, shadow, 
and outline. 

- A variety of shapes, either solid or hollow, including: rectangles with 
or without rounded corners, ovals, arcs, and wedges. 

- Any other arbitrary shape or collection of shapes, again either solid or 
hollow. 

- À picture consisting of any combination of the above items, with just 
a single operation. 
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In addition, QuickDraw has some other abilities that you won't find in many 
other graphics packages. These features take care of most of the 
“housekeeping” -- the trivial but time-consuming and bothersome overhead 
that's necessary to keep things in order: 


- The ability to define many distinct windows on the screen, each with 
its own complete drawing environment -- its own coordinate system, 
drawing location, character set, location on the screen, and so on. You 
can easily switch from one such window to another. 


- Full and complete “clipping” to arbitrary areas, so that drawing will 
occur only where you want. You don't have to worry about accidentally 
drawing over something else on the screen, or drawing off the screen 
and destroying memory. 


MacFORTH provides you with direct access to most of the features of 
QuickDraw. Upon this strong foundation we have built a two dimensional 
graphics package capable of translating pictures and images which are 
expressed in natural user coordinates (ie; feet, miles, furlongs, centimeters) 
into actual images on the screen. The images that you create may be offset, 
rotated and scaled with respect to the window in which you are drawing. 


Your Window, Your Canvas 


АП drawing occurs within the content region of a window. The content region 
of a window is the area inside the window excluding the title bar and any 
contro! bars. Each window is a complete and separate drawing environment 
that defines how and where graphic operations will have their effect. Each 
window has it's own coordinate system, drawing pattern, background pattern, 
pen size and location, and character font size and style. You may instantly 
Switch between windows for graphic output. 


The MacFORTH Window 


In the following examples, you will use the MacFORTH window for graphics 
output. Although both interactive transactions with MacFORTH and graphics 
output will occur on the same window, we will later discuss how to do each 
in separate windows. 


Now, resize the MacFORTH window to take up most of the available desktop 
space. (If you don't understand how to do this, run the Guided Tour to 
Macintosh and review the preceding chapters). 
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GINIT: Graphics Initialization 
Execute 


GINIT 


This will restore the state of the graphics system to it's default state. If, 
during the remainder of this chapter, you become confused as to what is going 
on (e.g. drawing in white ink on a white background) use GINIT to restore the 
system to a known state - black ink on white background. You will notice that 
the cursor moves immediately to the upper left corner of the window. 


The Native QuickDraw Coordinate System 
GINIT also resets coordinate interpretation to QuickDraw native mode, and 
places the pen at 0,0. Let's move the origin to the center of the screen and 
display the X/Y axis. Execute 

CENTER ХҮАХІ5 
QuickDraw native coordinates are different from the normal 


cartesian coordinates that that you learned in school: 


Cartesian Coordinate Sytem 


Cower Xi qorscencesasdcMed нен антене > Higher X 


M 
Lower 'Y' 


AS you can see, in the Cartesian coordinate system, increasing Y values 
progress up, increasing X values progress to the right. 
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Look carefully at the XY axis that we've put up on the screen. The '*' sign for 
the Y axis (up an down direction) is at the bottom, not the top (where it would 
be in Cartesian coordinates). 


QuickDraw Coordinate System 


Note that in native QuickDraw coordinates, increasingly higher Y values 
progress down, and lower Y values progress up. X coordinates are the same in 
both Cartesian and QuickDraw coordinate systems. Now you can see why the 
cursor is moved to the upper left corner when GINIT is executed. It was 
initialized to 0,0. The diagram below shows how your window relates to the 
coordinate system: 


( top left corner of screen -- ) 


V 

шынына ы акы > higher x 
[neret e 
І 10,0 | 
|| Мас | 
| | Window | 
|| or Page of | 
|| Tex | 
|| | 
| 

V 

higher 'y' 


Although native QuickDraw coordinates are aligned with the way a page of 
English text is read, it's still different from the way you may have been 
taught in school to think about coordinate systems. 
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Execute the following example: 
10 10 HOUE.TO 50 50 DRRH.TO 


This will move the pen to 10, 10 and draw a line to 50, 50. Notice the line 
slopes downward. 


MOVE.TO expects two values on the stack (the x and y coordinate of a point), 
and moves the starting point for drawing to that position. If you think of 
drawing lines with a pen, MOVE.TO simulates lifting the pen off of the paper 
and moving it to the specified location. 


DRAW.TO expects two values on the stack (the x and y coordinate of a point), 
and draws a line from the current point to the specified point. The new 
location becomes the starting point for the next operation. If you think of 
drawing lines with a pen, DRAW.TO simulates keeping the pen down as you 
move it to the specified location. 


The Basis of QuickDraw 

Without discussing the mathematics behind QuickDraw's relationship to the 
physical layout of graphics memory systems, it may be a little difficult to 
understand why this coordinate system was chosen. 


Most major innovation is the result of relaxing traditionally accepted 
constraints and discovering whole new ways of looking at the problem. 
Consider "Reverse Polish Notation'. By removing the constraint of jumbled 
operators and operands, far simpler and more elegant code may be produced by 
always having operators follow operands and keeping intermediate values on a 
stack. 


By relaxing the Cartesian Y coordinate constraint, Bill Atkinson was able to 
construct a mathematically pure model capable of expressing a two 
dimensional coordinate system on bit mapped graphics screens. Much of the 
startling performance of the QuickDraw package is the result of the far 
simpler arithmetic relationships between points in graphics memory and 
QuickDraw native coordinates rather than Cartesian coordinates. 


Don't panic. You don't have to learn a new method of drawing points if you 


dont want to. MacFORTH allows you to express points in the Cartesian 
coordinate system if you prefer. 
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Try the following example: 
CARTESIAN ON ( specify the Cartesian system ) 


PAGE ( clear the window ) 
CENTER ( center the xy axis in the window ) 
XYAKIS { display the xy axis } 


10 10 HOUE.TO 50 50 DRRH.TO ( draw a line ) 


The line that was drawn slopes upward, just as you would expect it to when 
drawn in a Cartesian coordinate system. To go back to the native QuickDraw 
coordinate system, execute: 

CARTESIAN OFF 


That's how easy it is to change between the two coordinate systems! 


Range of Coordinates 


Coordinate values are between -32768 and +32767 for both X and Y. Based 
upon where you place the axis origin, points that are calculated to appear 
within the window will be displayed; all others are not. Execute: 

CARTESIAN ON 

CENTER ( discussed later ) 

10 10 nOUE.TO 1000 1000 DRRH.TO 


Notice that the line was drawn right off of the window. Now execute: 
20 10 МОЕ. ТО 100000 100000 DRRU.TO 


Numbers greater than 32767 "wrap around' to the negative end of the 
coordinate system. Although MacFORTH deals with numbers up to +/- 2 
billion, coordinate values greater or less than */- 32767 сап be best 
described as “undefined”. Refer to the "Scaling to User Coordinates" section 
of this chapter for how to deal with larger numbers. 


А Handy Tool 
Enter the following definition to save yourself some typing: 

: CLEAN ( --- ) PAGE CENTER CARTESIAN ON XYAKIS ; 
When writing and testing MacFORTH programs, any repetitive sequence should 
be defined and given a name. From now on we'll just use CLEAN to clean up 
the display and redraw the xyaxis. Try it out now, execute: 


CLEAN 
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Here's а quick summary of the commands we һауе presented so far: 


CARTESIAN OFF Sets mode to native QuickDraw coordinates 


CARTESIANON Sets mode to cartesian coordinates 


CENTER 


CLEAN 


DRAW.TO 


GINIT 


MOVE.TO 
PAGE 


ХҮАХІ5 


Line Drawing 


Positions the XY origin in the center of the window 


Wipes the display and places the xyaxis in Cartesian 
coordinates on the screen 

(this word is only present if you enter the definition 
given on the previous page) 


Draws with the pen to the specified location from 
the current location 

(for now use MOVE.TO before every DRAW.TO on the 
same line) 


Reverts to Macintosh native coordinates and places 
the XY origin in the upper left corner of the window 


Moves the pen to the specified location 
Clears the screen 


Displays the XY axis 


AS you have seen, lines are defined by two points: the current pen location 
and a destination location. When drawing a line, QuickDraw moves the pen 
(actually the top left corner of the pen) along the calculated line from the 
current location to the destination. 


If you draw a line to a location outside your window the pen location will 
move there, but only the portion of the line that is calculated to be inside the 
window will actually be drawn. This is true for all drawing procedures. 


Graphics Results 
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Window Pen Characteristics 


The graphics “pen” associated with each window has the following unique 
characteristics: 

a location 

asize and shape 

a drawing pattern 

a drawing mode 


Pen Location 

The pen location is a point in the coordinate system of the window and is 
where QuickDraw will begin drawing the next line, shape, or character. 
Within the range of coordinates there are no restrictions on the location or 
placement of the pen. Remember, if you position the pen outside of the 
window, you won't see part of the next line or shape drawn (if you leave it 
there). 


As you have already seen, MOVE.TO positions the pen at the specified 
location, and DRAW.TO draws from the current location to the specified 
point. 


Notice the emphasis that DRAW.TO draws from the current location. To 
illustrate this point, execute the following example (on three separate lines): 
CLEAN 
10 10 HOUE.TO 
100 100 DRAW. TO 


What happened?? Let's try it again, one step at a time. Execute: 
CLEAN 


You see that the window was cleared, the xy axis was displayed, and the "ok" 
was displayed in the upper left corner. Next, execute: 
10 10 MOVE.TO 


look at the xy axis, where the point (10,10) is. See the "ok'? This tells you 
where the pen location was moved to. After MacFORTH processed the 
command, it output the "ok" and then moved the pen to the start of the next 
line (at the current cursor position). Each time you enter a character, the pen 
location is moved to the right (at the position of the cursor) So, when you 
exuecte: 

100 100 DRRH.TO 


Where was the current location when the command was processed? At the 
cursor position, just to the right of the DRAW.TO command. 
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This is why you were given examples with MOVE.TO and DRAW.TO on the 
same line. Now try: 

CLEAN | 

10 10 HOUE.TO 100 100 DRRH.TO 


and you'll see the line you expected. Remember, the current pen location is 
changed when MacFORTH finishes what you just asked in interactive (or 
interpretive) mode. While running a program, your pen will move only to 
where you specify. 


If you already know the starting and ending positions of a line, you can 
simplify drawing it with the word vector. 


VECTOR ( x1\y1\x2\y2 -- | draws line between x1,y1 and x2,y2 ) 


For example (try it both ways): 
0 0 HOUE.TO 100 100 LINE.TO 


is the same as: 
0 0 100 100 UECTOR 


If you only want to display a single dot, you can use the word DOT. DOT 
expects the x and y coordinate of the dot you want to display. Try displaying 
a few dots by executing: 

CLERN 

20 20 DOT 

10 10 DOT 

30 50 DOT 

-10 35 DOT 


In MacFORTH, it is easy to define your own shapes. For example, here's a 
definition to draw a small box (you may want to edit this definition into a 
block and then load it): 
: BOX ( --- | draws a square on the screen ) 
10 10 MOVE.TO -10 10 DRAW.TO 
-10 -10 DRAW.TO 10-10 DRRH.TO 
10 10 DRRH.TO ; 


Now try it out by executing: 
CLEAN BOX 


Feel free to modify the definition for BOX to create some graphics shapes of 
your own. You may want to increase the size of the box, or make a diamond, or 
whatever... 
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Реп 5іге апа 5һаре 
Тһе реп is rectangular in shape, and has а user-definable width and height. 


The default size (reset by GINIT ) is a 1 by 1 bit square; the width and height 
can range from 0, 0 (no pen show), all the way up to 32,767, 32,767 (a very, 
very thick pen). If either the pen width or the pen height is less than 1 the 
pen will not draw on the screen. 


You can modify the size of a pen by specifying its width and height in terms 
of dots to the мога PENSIZE . For example, 
5 10 PENSI2E 


would specify a pen 5 dots wide and 10 dots high. To see what effect this 
has, try a few examples: 

CLERN 

1 1 PENSIZE 100 100 DOT 

5 10 PENSI2E 50 50 DOT 

1 1 PENSIZE 00 -50 -50 VECTOR 

10 3 PENSIZE 0 0 100 -100 VECTOR 


CLEAN 
1 1 PENSIZE BOX 


CLEAN 
1 5 PENSIZE BOX 


CLEAN 
5 | PENSIZE BON 


CLEAN 


The pen appears as a rectangle with its top left corner at the pen location; it 
hangs below and to the right of the pen location. You can see this by 
executing: 

10 10 PENSIZE 0 0 DOT 


Think of the coordinate plane as a grid. Individual dots are separated by the 
lines of the grid. As the pen moves across the grid, only dots below and to the 
right of the pen which fall within the pen size rectangle are affected by the 
pen. 
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Pen Mode and Pen Pattern Characteristics 
The pen mode and pen pattern characteristics determine how the bits under 
the pen are affected when lines or shapes are drawn. The pen pattern is a 
pattern that is used like the "ink" in the pen. Five patterns are predefined: 
(WHITE, LTGRAY, GRAY, DKGRAY, BLACK). Try a few examples: 

CLERN 

10 10 PENSIZE 

GRAY PENPAT 

-100 100 -10 10 VECTOR 

DKGRAY PENPAT 

-120 100 -20 10 VECTOR 


For fun try: 
CLEAN 
CREATE <BRICKS> 
HEX 808080ҒҒ , 080808ҒЕ , DECIMAL 


CLEAN 20 20 PENSIZE 
<BRICKS> PENPAT 
10 10 100 100 UECTOR 


Some of the other patterns that we have worked with include: 


HER 

CREATE <SPIRAL> O0FEO2FR , SABAB2FE , 
CREATE <CHECKS> CCCC3333 , СССС3333 , 
CREATE <BIG.CHECKS> FOFOFOFO , OFOFOFOF , 
CREATE <SIGNAS> 00704420 , 1020447C , 
CREATE <WEAVE> Ғ8742247 , 8F172271 , 
CREATE <MARBLES> 11T898F8F , 17798ҒӘҒ8 , 
CREATE <WAFFLES> BFCOBFBF ,  BOBOBOBO , 


DECIMAL 


As you can see, the pen pattern is used to fill in the bits that are affected by 
the drawing operation. 


Pen Mode 

The pen transfer mode determines how the pen pattern is to affect those dots 
which occur under the pen lines or shapes drawn. When the pen draws, 
QuickDraw first determines what bits of the bit map will be affected and 
finds their corresponding bits in the pattern. It then does a bit-by-bit 
evaluation based on the pen mode, which specifies one of eight boolean 
operations to perform. The resulting bit is placed into its proper place in 
memory. 
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The word PENMODE allows you to specify the current реп mode. Choose the 
pen mode from one of the following constants (each mode specified below is 
represented by a MacFORTH constant of the same name): 


Dot was Dot was 
Mode Black White 
PATCOPY Force Black Force White 
PATOR Force Black No Change 
PATXOR Invert No Change 
PATBIC Force White No Change 
NOTPATCOPY Force White Force Black 
NOTPATOR No Change Force Black 
NOTPATXOR No Change Invert 
NOTPATBIC No Change Force White 


For each type of mode, there are four basic operations -- Copy, Or, Xor, and 
Bic. The Copy operation simply replaces the dots in the destination with the 
dots in the pattern , “painting” over the destination without regard for what 
is already there. The Or, Xor, and Bic operations leave the destination dots 
under the white part of the pattern or source unchanged, and differ in how 
they affect the dots , thus “overlaying” the destination with the black part of 
the pattern . Xor inverts the dots under the black part. Bic erases them to 
white. 


Each of the basic operations has an alternate form in which every pixel in the 
pattern is inverted before the operation is performed. Each mode is defined 
by name as a constant in MacFORTH, e.g. (PATCOPY) . The best way to 
understand each mode is to experiment with them. Try the following 
examples to start with, and then try some of your own: 

CLEAN 

<BRICKS> PENPAT 

PATXOR РЕНПОПЕ 

20 20 PENSIZE 

0 0 100 -100 VECTOR 

BLACK PENPAT 

0 4 50 -50 VECTOR 
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Text Output 


MacFORTH allows you to output in any of the available text fonts, styles, 
modes, or sizes available on the Macintosh. Text drawing does not use the 
pensize pen pattern or pen mode, but it does use (and modify) the pen location. 
Each character is placed to the right of the current pen location, with the left 
end of its base line at the реп5 location. The реп is moved to the right to the 
location where it will draw the next character. Enter: 
GINIT CLEAN 
100 100 DRAW.TO 


All text drawn on the screen is drawn by QuickDraw. As a result, when the 
word DRAW.TO was echoed back to the user as it was typed in, the current 
point advanced and was left at the end of the text. The line was then drawing 
from that point to 100 100 (from the center of the window). 


Text echoed back to MacFORTH is а special case, and only effects graphics 
drawn interactively in the MacFORTH window. When a carriage return or line 
feed is output, MacFORTH determines where to put the next line of text. Text 
advances down along the QuickDraw native Y coordinate until the next line 
would be partially off of the window. MacFORTH then scrolls the window up 
to make room for the new line. Enter: 

CLEAN — dE 

100 100 MOUE.TO ." Now is the time " 
-100 -100 MOVE.TO 5 


To move text around the screen, use MOVE.TO and then ouput the text. If you 
attempt to output a line feed at a point which is not currently in the window, 
MacFORTH will force it back onto the screen. This is so that all error 
messages will appear on the display. 


Any text which occurs within a window 15 drawn according to the currently 
specified font, style, transfer mode and size. QuickDraw can draw characters 
as quickly and easily as it draws lines and shapes, and in many prepared fonts. 


Character Font 

A character font is defined as a collection of bit images: these images make 
up the individual characters of the font. The characters can be of unequal 
widths. А font can consist of up to 256 distinct characters, yet not all 
characters need be defined in a single font. Each font contains a missing 
symbol to be drawn in case of a request to draw a character that is missing 
from the font. Each font is assigned a specific reference number. If you have 
deleted any fonts from the MacFORTH disc (as explained in the Macintosh 
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Users manual provided with your computer), they won't be available from 
MacFORTH. The word TEXTFONT allows you to specify the current text font. 
Choose the text font from one of the following values (no MacFORTH constants 
are provided for the text fonts): 


Font Value 
System О (bold faced Geneva) 
Application 1 (New York) 
New York 2 
Geneva 3 
Monaco 4 (fixed space -- the default MacFORTH font) 
Venice 5 
London 6 (Gothic) 
Athens 7 
San Francisco 8 (ransom notes) 

49'ER ROP 

о г NORTH TAHOE HIGH SCHOOL 


Р. О. BOX 5099 
For example, those of you who are hookddAdh € fe Kal dh Yoo eA 9820.11 


recognize: 
CR 8 TEXTFONT ." Have your goldfish, send cash or tartar sauce" 


To return to the normal MacFORTH system font execute: 
4 TEXTFONT 


To read the value of the currently selected textfont, execute: 
GET. TEXTFONT . 


Text Style 
The text style controls the appearance of the font. The following styles are 


available: bold, italic, underline, outline, shadow, condense, and extend. You 
can apply these either alone or in combination. Most combinations usually 
look better on a larger character size. 


If you specify bold, each character is repeatedly drawn one bit to the right an 
appropriate number of times for extra thickness. 
/ta/ic adds an italic slant to the characters. Character bits above the base 


line are skewed right; bits below the base line are skewed left. 


Graphics Results Page 6 - 15 June 4, 1984 


Underline. draws a line below the base line of the characters. ІТ part of а 
character descends below the base line (ie: p) the underline is not drawn 
through the dot on either side of the descending part. 


You may specify either outline or shadow. Outline makes a hollow outlined 
character rather than a solid one. With shadow, not only is the character 
hollow and outlined, but the outline is thickened below and to the right of the 
character to achieve the effect of a shadow. If you specify bold along with 
outline or shadow, the hollow part of the character is widened. 


Condensed and extended affect the horizontal distance between all 
characters, including spaces. Condensed decreases the distance between 
characters and extended increases it. 


The word TEXTSTYLE allows you to specify the current text style. Choose 
the text style from one of the following constants (each style listed is 
represented by a MacFORTH constant of the same name): 


Style Bit* Hex Value 
PLAIN n/a 0 
BOLD 0 1 
ITALIC 1 2 
UNDERL ІНЕ 2 4 
OUTLINE 2 8 
SHADOW 4 10 
CONDENSED 5 20 
EXTENDED 6 40 
For example: 


BOLD TEXTSTYLE 
or 
BOLD UNDERLINE + TEXTSTYLE 


To read the current text style, execute 
GET.TEXTSTYLE . 


For example, to enhance the current text style with bold face, you would 
execute: 

GET.TEXTSTYLE BOLD + TEXTSTYLE 
To reset the text style to the default (plain setting) enter: 


PLAIN TEXTSTYLE 
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Text Mode 

The text mode controls the way characters are placed on a bit image. It 
functions much like a pen mode: when a character is drawn, QuickDraw 
determines which bits of the bit image will be affected, does a bit-by-bit 
comparison based on the mode, and stores the resulting bits into the bit 
image. 


The word TEXTMODE allows you to specify the current text mode. Chose the 
text mode from one of the following constants (each mode listed is 
represented by a MacFORTH constant of the same name): 


SRCCOPV (source copy) 

SRCOR (source or) 

SACKOR (source exclusive or) 
SRCBIC (source bit clear) 


The best way to understand each text mode is to experiment with each. The 
default text mode is SRCXOR. Try the following examples to get started, then 
continue with a few of your own: 

SRCKOR ТЕКТИОПЕ < be sure its the default) 

PRGE 

100 100 МОЏЕ. ТО  ." HELLO" 


(press Return an extra time here to avoid overwriting the previous line) 
101 101 HOUE.TO ." HELLO" 


(again, press Return a few times to avoid overwriting the previous lines) 
SRCCOPV TENTHODE 
100 100 HOUE.TO ." HELLO" 


Remember to return to the default text mode when you finish experimenting 


by executing: 
SACKOR TERTHODE 
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Text Size 

The text size specifies the type size for the font in points ("points" here is a 
printing term meaning 1/72 inch) Any size тау be specified. If the 
Macintosh Font Manager does not have the font in a specified size, it will 
scale a size it does have in order to produce the size desired. A value of 0 
directs the Font Manager to select the size from among those it has for the 
font; it will choose whichever size is closest to the system font size (12 
point). 


The word TEXTSIZE allows you to specify the text size. For example, to set 
the text size to be 20, you would execute: 
20 TEXTSIZE 


You can read the current text size by executing 
GET.TEXTSIZE . 


Here are a few examples to try: 
34 TEXTSIZE 
21 TEXTSIZE 
9 TEXTSIZE 
10 TEXTSIZE 


and finally, return to the default text size by executing: 
12 TEXTSIZE 


You can see that when you increase the size of the font, it overwrites letters 
on previous lines. This is due to the line height for output, explained next. 


Line Height 
The line height determines how far to advance down the page or scroll up 


when a linefeed is encountered. Line height should normally be a little larger 
than the text size (usually 3 points). 


The word LINE.HEIGHT allows you to specify the line height, 
GET.LINE.HEIGHT returns the current line height. Here are a few examples 
to try: 

15 LINE.HEIGHT 12 TEXTSIZE ( the default values) 

20 LINE.HEIGHT 

30 LINE.HEIGHT 

15 LINE.HEIGHT 


Execute GINIT to restore text font, size and line height. 
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Moving the Origin 


MacFORTH allows you to move the origin for graphics output around on your 
window. As you have already seen, XYAXIS draws the xy axis around the 
center of the coordinate system. Execute 

PAGE 

CENTER 

CARTESIAN ON 

RYAKIS 


and you'll see the xy axis drawn in the center of your window. You can also 
select the upper and lower left corner of the window as the origin. Try: 

PAGE 

LOWER.LEFT ЖҮНКІ5 


and you'll see the xy axis (only the upper right quadrant) displayed in the 
lower left corner of your window. Now try: 

PAGE 

UPPER.LEFT YARIS 


and you'll see the xy axis (only the lower right quadrant) displayed in the 
upper left corner of your window. 


From any of these new origins, you can draw graphics just as you did from the 
center of the window. As before, only those points that are inside the bounds 
of the window will be displayed. 


You can take moving the xy origin one step further and position it anywhere 
(inside or outside the window). The word XYOFFSET allows you to express 
the offset from the upper left corner of your window in native QuickDraw 
coordinates for your xy origin. For example, to position your origin 150 dots 
from the left and 75 dots from the top of your window (the content region), 
you would execute: 

150 75 RVOFFSET 


Now verify this by executing: 
KVAKIS 


Try out your new origin location by executing: 
PAGE 
HYAXIS 
0 0 100 -100 VECTOR 


and you can see that the origin has indeed been moved. 
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QuickDraw Shapes 
QuickDraw supports a number of predefined shapes: 


Rectangles 

Ovals (includes circles) 
Rounded Corner Rectangles 
Arcs (includes wedges) 


Each shape may be FRAMEd, PAINTed, CLEARed, INVERTed or PATTERNed. 


The outlines of FRAMEd shapes are drawn with the current pen size, shape 
mode, and pattern. As the pen traces just inside the boundaries of the shape, 
dots to the right and below the pen (within the pen size) are modified. The 
pen location is not affected. 


Dots within the boundaries of PAINTed shapes are filled with the current pen 
pattern and mode. The pen location is not effected. 


Dots within the boundaries of CLEARed shapes are set to the background 
pattern in pattern copy mode. 


Dots within the boundaries of INVERTed shapes are toggled. Dots that were 
black become white and white dots become black. 


Dots within the boundaries of PATTERNed shapes are filled with the supplied 
pattern in pattern copy mode. 


Rectangles 
Rectangles are defined by two points at opposing corners. For example: 


GINIT PAGE 

90 50 200 200 FRAME RECTANGLE 
200 100 100 200 INUERT RECTANGLE 
CARTESIAN ON 


CENTER PAGE 
RYAKIS 
-100 -100 100 100 GRAY PATTERN RECTANGLE 


If you still have bricks around, try: 


PRGE 
-130 -200 130 -100 <BRICKS> PATTERN RECTANGLE 
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(If you have forgotten <BRICKS>, execute: 
HEX 
CREATE <BRICKS> 808080ҒҒ,  080808FF , 
DEC IMAL 


and then try the previous example again.) 


The stack arguments for a rectangle аге: 
(X1\y1\x2\y2\[pattern]\mode -- ) 


Notice the top two stack items. The pattern parameter is optional. This 
convention holds true for the standard QuickDraw patterns. 17 you use one of 
the standard modes, you don't specify a pattern. Standard QuickDraw modes 
are: 

FRAME PAINT CLEAR INVERT 


(as explained in the beginnning of this section). In the previous example, to 
draw a framed rectangle, you executed: 
50 50 200 200 FRAME RECTANGLE 


If you use a pattern (like WHITE, GRAY, DKGRAY, BLACK, or one you have 
created -- like the «BRICKS» example), you need to supply the pattern 
address and specify the mode as PATTERN. In the previous example, to draw 
a gray rectangle, you executed: 

-100 -100 100 100 GRAY PATTERN RECTANGLE 


Ovals 
Ovals are drawn within а specified rectangle. A square rectangle results іп а 
circle. For example: 


CLEAN 
0 0 200 100 INVERT OVAL 


<BRICKS> PENPAT 

-20 -20 0 0 PAINT OVAL 
BLACK PENPAT 

-150 -150 100 100 FRAME OVAL 


The arguments to an oval are the same as those to а rectangle. 
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Rounded Corner Rectangles 
A rounded corner rectangle is specified by a rectangle and the height and 


width of an oval which describes the corners. 


For example: 
CLEAN 
50 50 120 120 20 10 INVERT RRECTANGLE 
-50 -50 20 20 5 5 FRAME XRRECTRHGLE 


The stack arguments for a rounded rectangle are 
X1\y1\x2\y2\oval width\oval height\[pattern]\mode -- 


The oval width and height specify the oval the corners of the rectangle lie 
within. If this seems confusing, experiment with these two values on a 
rounded rectangle a few times -- a picture really is worth a thousand words! 


Arcs and Wedges 
Arcs are specified by an enclosing rectangle, and the starting angle of where 


the arc begins and the arc angle of the extent of the arc. The angles are 
treated modulo 360 and may be expressed in positive or negative degrees. A 
positive angle proceeds clockwise, a negative angle, counter clockwise. AS 
with the rounded rectangles, this may seem confusing at first, but after 
experimenting with a few makes them much clearer. 


While you are experimenting (after you try the examples below), remember: 
Zero degrees is 12:00 
90 (or -270) degrees at 3:00 
180 (or -180) degrees at 6:00... etc. 


Arcs use the following stack arguments: 
( xt\y1\x2\y2\start angle\arcangle\[pattern]\mode -- ) 


For example: 
CLEAN 
5 5 PENSIZE BLACK PENPAT 
20 20 100 100 90 120 FRAME ARC 
-100 -100 100 100 -45 240 GRAY PATTERN ARC 
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Relative Line Drawing 


Frequently, groups of lines and dots are more related to each other than to 
their position on the screen. For example, the relationship between the lines 
that make up a particular character make more sense described in terms of 
each other. If the starting point is moved, then all relative lines and points 
can be redrawn without converting all of the points to the new location. For 
example: 


CLEAN 

: ABOX  ( --- | draw the sides relative to eachother ) 
5 5 ANMOVE -10 0 ADRAN 
0 -10 RORAW 10 0 RORAW 
0 10 ADRAW ; 


1 1 PENSIZE PATCOPY PENMODE 
20 20 HMOUE.TO  RBON 
40 30 HOUE.TO RBOX 


In fact, here's a definition to draw a symbol for FORTH (you may want to edit 
this definition into an empty block in your work file): 


: 4TH ( --- | draw an abstract symbol for FORTH ) 
50 0 RHOUE 0-20 RDRRH 
-30 0 RNOVE 0 40 RDRRU 
-20 0 RHOUE 0-40 RDRAW 
-20 0 RHOUE 0 40 RDRRU 
-30 0 RHOUE 0-20 RDRRU 


100 0 RDRRI ; 


Now move to any position and draw it. For example, try: 
CLEAN 
10 10 PENSIZE 
100 100 МОЏЕ, ТО 4TH 


1 1 PENSIZE 
00 MOVE.TO 4TH 
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Scaling to User Coordinates 


MacFORTH allows you to scale your drawings to arbitrary user coordinates. 
You can think of “scaling” as expressing values in terms of a percentage of 
another value. The word XYSCALE allows you to set the scale for both the x 
and у axis. The default xy scale is 100,100. Try a few examples to illustrate 
this: 


For example: 
CLEAN XYAXIS 
100 50 XY¥SCALE 
10 10 MOUE.TO 4TH 
100 200 XYSCALE 
10 10 HQUE.TO 4TH 
-50 -50 10 10 GRAY PATTERN RECTANGLE 
100 100 XYSCALE 


If you wanted to draw the dimensions of а plot of land, expressed in feet, how 
would you map this to a Macintosh window? If the window is 100 x 100 dots 
and the maximum dimension of the plot of land was 500 feet, you could set 
the scale to: 

20 20 XYSCALE 


and enter the coordinates in feet (each dot equals 5 feet). MacFORTH will 
automatically scale the data and display it for you. 


Rotate to User Coordinates 


MacFORTH also allows rotation of the coordinate system around the origin. By 
temporarily offsetting the origin, other objects may be rotated. The word 
XYPIVOT allows you to set the angle of rotation (in degrees) for the xy axis. 
For example, try rotating the 4TH symbol 30 degrees: 

PAGE CENTER 30 КҮРІШ0Т 

XYAKIS 

50 50 100 100 UECTOR 


Now try: 
0 XYPIVOT 
VRBIS 
50 50 100 100 UECTOR 


and you сап see how the first line and axis was rotated 30 degrees. 
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Here's a definition to spin the 4TH symbol by just changing the pivot: 
SPIN ( --- 1 spin the 4TH symbol ) 
РАСЕ PATROR PEHMODE 
CENTER CARTESIAN ON 360 0 
DO | ЖҮРІШОІТ 
0 0 QUE. TO 4TH 00 HOUE.TO 4TH 
3 LOOP  ; 


By simply rotating the xy axis, you were able to rotate the 4TH symbol 
without modifying the word 4TH itself. Now try: 

5 5 PENSIZE SPIN 

100 200 XYSCALE SPIN 

200 100 XYSCALE SPIN 


Remember, only user defined shapes are rotated. 


integer Trig Functions 


included in the MacFORTH graphics are two integer trig functions: sine and 
cosine. The words SIN and COS each convert an angle, expressed in degree, 
into the angle's sine or cosine scaled up by 10,000. For example, the phrase 


45 SIN. 7071 ok 


tells us that the sine of a 45 degree angle is .7071 (.7071 times 10,000 is 
7071). 


Define a word to plot one complete cycle of a sine wave. Since the input to 
SIN is an angle, we can set up a DO..LOOP that runs from 0 to 360, and use the 
index as the argument for SIN. This will return al! the results from -10,000 
to *10,000, since SIN is scaled up by a factor of 10,000. If our window is 
only 200 x 200, you clearly cannot fit a full scale sine wave on the display. 
By scaling the data, however, it will easily fit. Try the following example: 


WAVE (--- | draw a scaled sine wave ) 
-1000 DUP SIN МОЧЕ. ТО 
1000 -1000 00 ІІ SIN DRAW.TO LOOP Р 
Now try: 
GINIT CLEAN 
PATOR PENNODE 
10 1 KYSCALE WAVE 
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Drawing to Other Windows 


Anything that can be done in the graphics system window can be done in 
another window. ( Resize MacFORTH window to a wide rectangle at the bottom 
of the screen like you did in the Getting Started chapter -- for figure 4.2). 
First, create a new window: 
NEW.WINDOW EASEL 
40 40 200 350 ERSEL W.BOUNDS 
" ERSEL " EASEL H.TITLE 
EASEL  RDD.HiNDOH 


Now click in the MacFORTH window to continue. The following definitions are 
used as a shorthand method for specifying the current window (your 
fingertips will thank us). 


: OE ( --- | select Easel window ) ERSEL WINDOW ; 
: OM ( --- | select MacFORTH window ) SYS.WINDOW WINDOW ; 


Now, resize the MacFORTH window so that both it and the EASEL windows are 
visible. Then try the following examples: 


Ж GINIT CENTER XYAXIS >M 
Ж 10 10 50 50 GRAY PATTERN RECTANGLE >M 


: THIST ( --- } 
GINIT CENTER CARTESIAN ON 
360 0 DO | XVPIUOT 0 0 MOVE.TO 50 50 DRRH.TO LOOP ; 


Ж TWIST >M 


(Try some examples of your own. Remember pulling down ABORT іп the 
options menu or entering the Command A keystroke will return you to the 
MacFORTH system window.) 


Finding Out What's There 


The word GET.PIXEL lets you find out the state of any dot on the screen. 
Given an x,y coordinate, GET.PIXEL returns a true flag if the dot at that 
coordinate is black, a false flag otherwise. The x,y coordinates are expressed 
in native Quickdraw coordinates relative to the upper left corner of the 
Screen. For example, to determine if the dot at 100,100 is on, you would 
execute: 

100 100 GET.PIXEL 
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Demo Programs 


We have included some demo programs on your system disc. To load them, 
execute 
INCLUDE" Demo Blocks" 


(or, you could double click the Demo Blocks icon from the finder). The demo 

programs are provided in source form so you can see the techniques used. 

Feel free to examine the demos (and make changes if you like). Have fun! We 

certainly did when we wrote them! To edit the demo source code, execute: 
USE" Demo Blocks" 


and then edit whichever block you like. Block 1 of the file will give you a 
good idea of where specific demos are located. 
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Overview 


MacFORTH allows you to define and control menus easily. You can specify the 
order of the menus on the menu bar, their titles and the items in each menu. 
Menu items can be selected via the mouse or command keys, disabled, 
highlighted, deleted, or even have their function changed. 


This chapter discusses how to create, activate, de-activate and delete menus 
from the menu bar. Using MacFORTH, you can create and use up to 31 menus 
simultaneously, each having up to 16 items; however, ten to twelve items per 
menu are all that will usually fit. 


Menu Example: 


In order to simplify the presentation of this material, try the following 
example first. It creates and displays a sample menu, showing how easily 
menus can be defined. You may find it easier to edit this code into a blank 
block and then load it . That way if you make a typing error you don't have to 
re-type the whole example. 


10 CONSTANT EXANPLE ( for “example menu" ) 


: MY.MENU ( --- | menu creation using menu i.d. 10 ) 

0 " My Menu " EXAMPLE NEW.MENU ( create the menu ) 

( append the items to the list: ) 
* Item 1<В<0; Item 2/2; Item 3«1(" EXAMPLE 

APPEND. I TENS 

DRAW. MENU. BAR ( draw the menu bar } 

( define the action to take place ) 

EXAMPLE MENU.SELECTION: О HILITE.MENU 


CASE 1 OF СВ.” Item 1 Selected!" ENDOF 
2 OF СВ." Item 2 Selected!" ENDOF 
3 OF (В. Item 3 Selected!" ENDOF 
ENDCRSE ; 


MY. MENU 


Now try each of the items in "Му Menu” by selecting them with the mouse (or 
as shown for item 2; “command 2" -- hold down the command key and press 2). 
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Menu List 


The menus displayed by MacFORTH are maintained in a “menu list.” Each entry 
in the list is a menu id (a number assigned to a menu) and its position in the 
list determines the order of the menus in the menu bar. Note that this list is 
not maintained in numeric order, but in the order of display in the menu bar. 


There are 31 entries in the menu list, allowing you to create and display up to 
31 menus using MacFORTH. 


Menu Creation 


The word NEW.MENU creates a new menu and inserts it into the menu list. 
NEW.MENU is used in the following form: 


«menu insertion point> «menu title» «menu id» NEW.MENU 


So, in our example, we created a new menu, inserted it at the end of the menu 
list, called it "My Menu” and assigned it menu number 10 with the phrase 
(remember, EXAMPLE is a constant with value 10): 


0 "My Menu" EXAMPLE NEW.MENU 


Menu Insertion Point This is the menu id that the newly defined menu is to be 
inserted before in the menu list. Specifying the menu insertion point of 0 is 
a special case: it means that you want the menu to be inserted at the end of 
the menu bar. 


Menu ID The menu id is any number from 1 to 31 that you choose to refer to 
your new menu as. We recommend that you use a CONSTANT for your menu id's 
for later reference to the menu (like we did with EXAMPLE). You can choose 
any number you like, but we recommend that you use numbers greater than 10 
in order to avoid possible conflicts with system menus. In case of a conflict, 
the system will use the first menu it finds with the menu id given. 


Menu Title Тһе title you choose for your menu is a string of up to 
approximately 80 characters (as long as it fits on the screen). You should use 
concise, meaningful names for your titles. 
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Menu Items 


Each of the available selections in а menu is referred to as a “menu item.” The 
items in "My Menu" ("Item 1","Item 2" and "Item 3") were appended to “My 
Menu" with the word APPEND.ITEMS used in the following form: 

«item list» «menu id». APPEND.ITEMS 


In our example, the phrase 
" Item 1«B«XU;Item 2/2; item 3<1(" EXAMPLE APPEND. ITEMS 


passed the item list (the quoted string) to APPEND.ITEMS for menu id 10 
(using the constant EXAMPLE). 


Item List The item list from our example may seem strange at first, but 
take a closer look. You can see the menu items listed ("Item 1", 2 and 3), 
which contain some special character suffixes. The following are special 
characters used as suffixes and cannot be specified as part of an item in the 
item list: 


Special 
Character Meaning 
; Separates items in the list (ie: " Item t;Item 2;item 3" ). 


‹ highlights the preceding item according to the character 

following <. The available highlight characters are: 
В for Вой (letters must be uppercase) 
| for /£2//c 
O for Outline 
3 for Shadow 
U for Underline 

(ie: " Item 1«B«U;Item 2«0;" ) 


( Disables the preceding item, displaying it in grey. 
The item cannot be selected until it is enabled. 
(ie: " Function 1; Function 20 Function 3(;" ) 


/ Assigns the key immediately following the / as the 
command кеу sequence for that menu item. 
(ie: " Attack/A;Retreat/R;" ) 


| Precedes the item with the character immediately 
following the! . (ie: " Firel*;" ) 
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Now, using the above table, let's go back and look at the item string again. 
The first item: 

Item 1«B«U; 
specified the string "Item 1" as the menu item and made it bold faced, 
underlined. The second item: 

Item 2/2 
specified the string "Item 2" as the menu item and assigned the command key 
2to it. When a "command 2" key is pressed (both the command key and the 
specified key held down simultaneously), Item 2 will be executed. The third 
item: 

Item 3«I( 
specified the string "Item 3" as the menu item and italicized it. The '(" 
disabled the item, preventing you from accessing it with the mouse. 


Special Strings You can display the Apple logo (apple with a bite) or a check 
mark, or any of the special characters, or any of the displayable characters on 
the Mac by creating a string and modifying it directly. For example, the Apple 
logo is character 20 (decimal) (a check mark is decimal 18). Try finding that 
key on the keyboard! (You can't, it doesn't exist.) To create a string with the 
apple in it you could execute something like: 


CREATE APPLE$ ," X" 20 RPPLE$ 1% C! 
Or, for this example, you might try 
CREATE APPLE$ 1 С, ( for the count ) 20 C, ( logo character ) 


You could then use APPLE$ in your menu defintion in place of the quoted 
string: 
APPLE$ EXAMPLE APPEND. ITENS 


separating Menu Items You can separate items in a menu with a horizontal 
bar by using а "~" character and disabling it as an item. For example , the 
string 

" item 1;-(;Item 2" — «menu *> APPEND. ITEMS 
passed to APPEND.ITEMS would separate Item 1 and Item 2 with a line. 


Displaying the Menu 
DRAW.MENU.BAR displays the new menu bar. Your menu is now active and 
ready to be used just like any other menu. If you are adding several menus, 


use DRAW.MENU.BAR after you have created and inserted the menus in the 
menu list to avoid having the menu bar flash each time a menu is added. 
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Menu Item Selection 


The word MENU.SELECTION: determines what action is taken when an item 
is selected in your new menu and is used in the form: 


<menu id> MENU.SELECTION: <action to take> 
Where the menu id is the id you assigned to the menu. When an item is 


selected, the item number of the selection is passed to the code following 
MENU.SELECTION: for execution of the appropriate action. 


Menu Item Numbers Each menu item is assigned a number when it is appended 


to the menu. The numbers start at 1 and are incremented by one for each 
item. For clarity, in our example, we numbered the items according to their 
item number. This means that our "Item 1" selection is actually item number 
1, Item 2" is item number 2 and so on. When an item selection occurs, this is 
the number which determines the action to take. 


Menu Item Execution When a menu item is selected, the code immediatly 


following MENU.SELECTION: for that menu is executed with the item 
number on the stack. The code executed is usually a CASE statement which 
tests the value on the stack and executes the appropriate code. 


To make this more clear, let's examine what happened when you touched down 
on Item 1 in "My Menu.” The system saw a mouse click on menu item one and 
passed control to the MENU.SELECTION: code for menu 10 (which was defined 
with the EXAMPLE MENU.SELECTION: ... phrase) Тһе code for menu 10's 
menu selection is the following case statement: 


0 HILITE. MENU 
CASE 1 OF CR ." item 1 Selected!" ENDOF 
2 OF CR ." Item 2 Selected!" ENDOF 
3 OF CR .* item 3 Selected!" ENDOF 
ENDCASE 


which executed case 1 of the statement and returned to what you were doing 
before the mouse click occurred. The items in a menu are executed 
transparently, returning immediately to what was executing before the 
selection occurred. 
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Modifying Menu Execution You can modify the function of а menu бу simply 
re-defining the menu selection definition. Try the following to change the 
execution of our example menu: 


NEW.EXANPLE.FUNCTION ( --- } 
EXAMPLE MENU.SELECTION: 0 HILITE.MENU 
CASE 1 OF CR ." New Function 1" ENDOF 
2 OF CR ." New Function 2" ENDOF 
3 ОҒ CR ." New Function 3" ENDOF 
ENDCRSE ; 


NEW. EXAMPLE .FUNCT ION 


Now try the items in “My Menu" and you'll see the new functions executed 
when you make your selections. This powerful feature allows you to change 
the function of any menu at any time. 


Modifying Menu items 


You can modify the menu items (type style, enable/disable, add/delete check 
marks or characters, etc.) with the following functions (each function takes 
item* and menu id, where the item* is the item number in the menu and menu 
id is the number of the menu): 


ITEM.STYLE allows you to change the style of the item. Used in the form: 
<item*> «style» «menu id» ITEM.STYLE 
where «style» is one of the following styles: 


Style Value 


0 
1 
ITALIC 2 
UNDERLINE 4 
SHADOW 8 
OUTLINE 16 


To get multiple styles, add the values together. For example, to get 
underlined shadow as the style, you would execute: 
<item®> UNDERLINE SHADOW + <menu®> ITEN.STYLE 


Menus Chapter 7- 7 June 4, 1984 


ІТЕМ.МАНК allows you to attach or remove a character to an item. Used in 
the form: 

<item> <mark> «menu id^» {TEMN.MARK 
where «mark» is the character to append to the item. If <mark> is zero, any 
character currently appended is removed. «mark» is any valid ASCII character 
or special Mac character (ie: 20 is the Apple logo). 


ITEM.CHECK allows you to append or remove a check mark from a menu item 
based on a flag value. Used in the form: 

€item*» «flag» «menu id» ITEM.CHECK 
where «flag» is a boolean flag. ІТ «flag» is -1 , a check mark is appended to 
the item, if «flag» is 0, the check mark is removed. 


ITEM.ENABLE allows you to enable or disable any item in the menu. Used in 
the form: 

<item®> «flag? «menu id? ITEM.ENABLE 
where «flag» is a boolean flag. If «flag» is - 1, the item is enabled, if «flag» is 
0, the item is disabled. 


SET.ITEM$ allows you to change the string associated with any menu item. 
<item> <string.addr> <Menu®> SET. ITEN$ 


Deleting a Menu 


You can delete a menu from the menu list by executing the word 

DELETE.MENU . Given a menu number on the stack, DELETE.MENU deletes the 

menu from the menu list and re-draws the menu bar, removing the menu. 
«menu *» DELETE. MENU 


It is a good idea to execute DELETE.MENU for the menu number you are about 
to add (with NEW.MENU). This ensures that you won't inadvertently add the 
menu twice and is a good way to insure against multiple menus with the same 
number. 


Disabling a Menu 
You can enable/disable a menu at any time using the command MENU.ENABLE 
in the following form: 
«flag? «menu id» МЕНИ. ENABLE 
where «flag» is a boolean flag. If «flag» is true, the menu is enabled, if «flag» 


is false, the menu is disabled. 
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Appendix А: Example Menus 


The following menu example is provided for you to use 
templates/techniques for your menus. 


13 CONSTANT ОР. МЕНО 
OPTIONS.MENU ( -- } 
0 " OPTIONS " ОР, МЕНЫ NEW. MENU 
“ TRRCE/T;DEBUG/D;HORDS;RBORT/R" ОР, МЕМ APPEND. ITEMS 
DRRH.MEHU.BRR ОР, МЕНЫ MENU.SELECTION: 0 HILITE.MENU 
CASE 
1 OF TRACE e NOT OUP TRACE ! 1 SWAP OP.MENU 
ITEM. CHECK — ENDOF 
2 OF DEBUG е NOT OUP DEBUG ! 2 SWAP ОР. МЕНИ 
ITEM. CHECK ENDOF 
3 OF WORDS ENDOF 
4 OF 1 ERROR" RBORTED!!" ENDOF 
ENDCASE ; 


20 CONSTANT ЕЖ. МЕНІ)! 
: MY.MENU ( ---) 
EX.MENU DELETE. MENU 
0 " My Menu" OP.MENU NEW. MENU 
" Item 1;-(;ltem 2" EX.MENU APPEND. 1 TENS 
DRAW. MENU . BAR 


ЕК. МЕНЫ MENU.SELECTION: 0 HILITE.MENU 
CASE 1 OF CR ." Item 1 Selected" ENDOF 
2 OF CR ." Item 2 Selected" ENDOF 
ENDCASE ; 


as 
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Appendix В: Menu Glossary 


APPEND.ITEMS item$\menu id -- 
Appends the items in the item$ to the menu specified by the menu handle 
on the stack. 


DELETE.MENU menu id -- 
Deletes a menu from the menu item list and re-draws the menu bar. 


DRAW.MENU.BAR --- 
Draws the menu bar. 


HILITE. MENU — menu id -- 
Highlights the menu whose id is given on the stack. Only one menu may be 
highlighted at a time. Special case: OHILITE.MENU disables the highlight 
for the current menu. 


ІТЕМ.СНЕСК item*\flag\menu id -- 
Appends or removes a check mark from the item specified based on the 
boolean flag given. If true, a check mark is appended; if false, the check 
mark is removed. 


ITEM.ENABLE —item*\flag\menu id -- 
Enables or disables the item specified based on the boolean flag given. If 
true, the item is enabled; if false, the item is disabled. 


ІТЕМ.МАВК item*\char\menu id -- 
Marks the specified item with the character given. 


ITEM.STYLE item*\style\menu id -- 
Sets the style for the item specified to the style given. 


MENU.ENABLE — flag\menu id -- 
Enables or disables the menu specified based on the boolean flag given. If 
flag is true, the menu is enabled, otherwise it is disabled. 


MENU.SELECTION: menu id -- 
Determines the action to be taken when an item is selected in the menu for 
the menu id specified. When an item is selected, the code following 
MENU.SELECTION: for the appropriate menu will be passed the item 
number of the selection. 


NEW.MENU title$\menu id -- 
Creates a new menu, assigning the number апа name given to the menu. 
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Overview 


This chapter discusses window management using MacFORTH. By now you 
should have completed both the Getting Started and Getting Results chapters 
which introduce and give examples of windows. The intent of this chapter is 
to provide you a quick reference guide to windows. 


The concept of windows is very important in the Macintosh environment and 
MacFORTH allows you to control virtually every aspect of a window (or leave 
it to the default handlers). 


Defining a Window 


The command NEW.WINDOW creates and defines a new window structure for 
MacFORTH. To create а new window, simply execute NEW. WINDOW followed 
by the name you want to call the new window. For example: 


NEW.WINDOW MY. WINDOW 


creates a new window named MY.WINDOW with the standard MacFORTH 
defaults. These defaults are: 

a.) title = “Untitled Window" 

b.) bounds = (100,100) (200,300) 

C.) no close box or size box 

d.) the action of the window is to beep when an event occurs 


Use NEW. WINDOW outside of a colon definition. 

Window Components 

Title 

The title assigned to a window is displayed in its title bar across the top of 
the window. You can choose any title you like for a window and assign it 
using the W.TITLE command during the definition of the window in the 
following format: 


" «title string?" <window pointer? W.TITLE 
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You сап also re-assign а title to a window with the SET.WTITLE command used 
in the following format: 
" «title string?" «window pointer? SET.WTITLE 


When SET.WTITLE$ is executed, the title bar of the window is immediately 
redrawn. 


Window Bounds 
To set the initial position and size of a window, use the W.BOUNDS command 
when the window is defined. Use the following format: 

«top? <left> <bottom> <right> <window pointer? И. BOUHDS 


The «top» «left? «bottom» and «righb values are the coordinates of the 
rectangle for the window, relative to the upper left corner of the screen. For 
example: 

100 150 300 350 MY.WINDOW Н. BOUHDS 


will set the initial position of MY. WINDOW (used for example only) to be 100 
dots from the top of the screen, 150 dots from the left of the screen at the 
window's upper left corner. The lower right corner of the window is 300 dots 
from the top of the screen, 350 dots from the left of the screen. 


Window Attributes 
When a window 15 defined, you can set the attributes for it with the 
W.ATTRIBUTES command. The available attributes for a window are: 

a.) CLOSE.BOX gives the window a close box 

0.) NOT. VISIBLE makes the window invisible 

C.) SIZE.BOX gives the window a size box 


To set the attributes for a window when defining it, select the attríbutes you 
want the window to have and add them before executing W. ATTRIBUTES. For 
example, to give the window MY.WINDOW a close box and size box, you would 
execute: 

CLOSE.BOX SIZE.BOX + MY.WINDOW W.ATTRIBUTES 


when you define the window. 


Window Program 
Use ON.ACTIVATE to define the function of a window. This actually 


specifies the word to be executed when a window is activated. The default 
for this function is a word which will just beep when any event occurs within 
a window. 
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As discussed in the Getting Results chapter, when а window is activated, the 
word which is executed is passed а flag. This flag is true (-1) if the window 
was activated and false (0) if another window is activated (hence the current 
window is deactivated). This allows you to start up your program when the 
window is activated and perform any cleanup when the window is deactivated. 
It is important to check this flag as the first thing when you execute your 
program. Any programs you assign to a window should follow a template 
similar to: 


HINDOH.PROGRRM ( activate flag -- ) 


IF ( code for activate ) 
ELSE ( code for deactivate ) 
THEM  ; 


If you FORGET the word which defines the function of a window, you will get 
unpredictable results when the window is activated. If you dont specify a 
word following ON.ACTIVATE (ie. you just press return) you will get 
unpredictable results when the window is activated (most likely an address 
error trap). 


Event Handling in a Window 
The Macintosh is an event driven computer. This means that your programs 


should be aware of the events occurring when they are executing. The word 
DO.EVENTS handles thís automatically for you, performing any default 
actions (resizing a window, hiding it when a close box is clicked, accepting 
keystrokes, etc.) and notifying you that the event occured. If you ignore 
events as they occur, your program will not be consistent with the Macintosh 
environment. To maintain consistency, your programs should be running an 
endless loop that checks for the occurence of events by executing DO.EVENTS 
often. 


With this in mind, you should expand the above template to be: 


HINDOH.PROGRRM ( activate flag -- ) 

IF BEGIN 00. ЕЏЕМТ5 
( code for activate which checks the events ) 
AGAIN 

ELSE ( code for deactivate ) 

THEN ; 


The code for activation should also be aware of any events that occur by 
executing DO.EVENTS and checking the code returned against a list of any 
you care about. 
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The following MacFORTH constants contain the event codes for the most used 
events that occur: 


MacFORTH Constant Event 

MOUSE.DOWN mouse button pressed 
IN.CLOSE.BOX mouse click inside the close box 
IN.SIZE.BOX mouse click inside the size box 


Tracking the Mouse 
іп the Getting Started chapter example, we presented a clear usage of 


tracking the mouse in the Finger Painting example. If you recall (if you don't 
recall the example, refer to the Getting Started chapter) FINGER.PAINT 
executed DO.E VENTS, which returned an event code. The only event we were 
concerned with in that example was when the mouse button was pressed, we 
Checked the event code to see if ít was equal to MOUSE.DOWN (a constant 
value for the event code of a mouse button being pressed). If it was, we went 
into a loop which ignored all events while the mouse was still down (which 
can be determined by the routine STILL.DOWN). 


The word @MOUSEXY returns the x and y coordinates of the current position 
of the mouse. 


Closing a Window 
When a window is closed by a click in its close box, MacFORTH automatically 


hides the window from view and returns an IN.CLOSE.BOX event from 
DO.EVENTS. You don't need to be concerned with hiding the window, as it has 
already been hidden before you are notified that the close box has been 
clicked. This lets you perform any cleanup that should occur when a window 
is closed. 


Sizing a Window 
When a window is resized by dragging its size box, MacFORTH will 


automatically handle the resizing for you and return an IN.SIZE.BOX event 
from DO.EVENTS. You don't need to be concerned with actually resizing the 
window, as it has already been resized before you are notified of the event. 
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Example 

Іп order to illustrate the above attributes (tracking the mouse, closing a 
window, and sizing a window), try the following example (you may want to 
edit it into a block): 


NEW.WINDOW SHEET 
" Finger Paint Window" SHEET W.TITLE 
40 40 200 200 SHEET W.BOUNDS 
CLOSE.BOK SIZE.BOK + SHEET W.ATTRIBUTES 


SHEET ADD.WINDOW 


: TRACE.FINGER ( --- ) 
HIDE.CURSOR 
BEGIN STILL.DOWN WHILE eHOUSERV DOT REPEAT 
SHOW.CURSOR  ; 


: FINGER.PAINT ( activate flag -- ) 
IF BEGIN — DO.EUENTS 


CRSE HOUSE . DOWN OF  TRRCE.FINGER ENDOF 
IN.SIZE.BOX OF ." Window Resized!" ENDOF 
IN.CLOSE.BOX OF Т SVSBEEP ENDOF 
ENDCASE 
AGAIN 
ELSE ." Window Deactivated” 
THEN ; 


SHEET ON.ACTIVATE FINGER.PAINT 


Handling Keystrokes | 
If you want to input data from the keyboard in another window, you should 

look for keystrokes in the activate portion of your program. Input of 

keystrokes are handled differently from other events in that you can check for | 
the presence of a keystroke (if one has been pressed) and get the key at any 

time in the activate loop part of the program. 
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Тһе word ?KEYSTROKE checks for a keystroke and returns either a false flag 
indicating no keystroke had been pressed, or a key value under a true flag if a 
key was pressed. 


Here's an example which modifies the finger painting example to include 
check for input of an "S" key for skinny mode, "М" Key for medium mode, or "Е" 
for fat mode: 


DO.FINGER.KEY ( key value -- ) 

CASE 83 ( "S" ) OF 1 1  PEHSI2E ENDOF 
7? ("М") OF 3 3 PENSIZE ENDOF 
70 ("F") OF 5 5 PENSIZE ENDOF 
7 SYSBEEP 

EHDCRSE ; 


Now modify FINGER.PAINT to be: 
FINGER.PAINT ( activate flag -- ) 
IF BEGIN — DO.EUEHTS 
CRSE MOUSE.DOWN OF TRACE.FINGER ENDOF 
?KEVSTROKE IF — DO.FIHGER.KEV THEN 
EHDCRSE 
AGAIN 
ELSE 7 SYSBEEP ." Finger Painting Finished" 
THEM ; 


SHEET ON.ACTIVATE FINGER.PAINT 


Default Event Actions 


MacFORTH executes a default operation for each event, within DO.EVENTS, 
prior to returning an event code to the user. The default operation typically 
handles all of the messy details required by the Mac User Interface and just 
returns an event code to let you know what happened. The default actions are 
summarized below for each event. 


Common to all events: If a keystroke has been received but not picked up by 
the user (via KEY) no further keystroke events are allowed until the current 
one is cleared. Type-ahead characters are thus accumulated in the event 
queue. If а Mouse.Down event occurs outside the content region of the current 
window, events 17-24 (see Events List ahead) are systhesized to indicate a 
special Mouse.Down event. 
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The following events have special default actions: 


Windows 


Event 


MOUSE.DOWN 


MOUSE.UP 
KEY. DOWN 


UPDATE. WINDOW 


ACTIVATE.WINDOW 
COMMAND.KEY 
IN.DESKTOP 


IN.SYS. WINDOW 


IN.LOWER. WINDOW 
IN.DRAG.BOX 
IN.SIZE.BOX 


IN.CLOSE.BOX 
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Default Action 

Check for events 17-23 and if appropriate 
returns that code instead. Code of 1 indicates 
mouse down in content region of current 
window. EVENT.RECORD is copied to 
MOUSE.DOWN.RECORD. 

EVENT.RECORD is copied to MOUSE.UP.RECORD 
EVENT.RECORD is copied to keystroke array. 


begins update , passes control to window 
update token, ends update 


passes control to window's activate token 
simulates menu event 
beeps 


passes control to execution procedure posted 
for menu by MENU.SELECTION: 


activates lower window 
drags window 
resizes window 


hides window 
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Complete Events List 


DO.EVENTS always returns one of the following event codes: 


0 NULL.EVENT 10 NETWORK.EVENT 
1 MOUSE.DOWN 11 DRVREVENT 

2 MOUSE.UP 16 COMMAND.KEY 

5 KEY.DOWN 18 IN.MENU.BAR 

4 KEY.UP 19 IN.SYS.WINDOW 
о AUTO.KEY 20 IN.LOWER. WINDOW 
6 UPDATE.EVENT 21 IN.DRAG.BOX 

7 DISKEVENT 22 IN.SIZE.BOX 

8 ACTIVATE.EVENT 23 IN.CLOSE.BOX 

9 ABORT.EVENT 


Note: Refer to "Inside Macintosh" for the meaning of events not described in 
this chapter. 
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Appendix A: Window Glossary 


Glossary Key: 
wptr Refers to the pointer to a window record which contains all 
of the information about the window needed by the system. 
This value is returned by a window specifier. 


Definitions: 


eMOUSEXY == x\y 
Returns coordinates of the mouse. 


ADD.WINDOW . wptr -- 
Opens a window on the screen using the preset title, bounds, behind, 
type and attributes. The content region is sized for the specified 
controls. 

BS --8 
А constant which returns the ASCII value of a backspace. 


FRONT.WINDOW -- wptr 
Returns the window pointer of the front window (which is the currently 
active window). 


GET.WINDOW  -- wptr 
Returns the window pointer of the current window used for output. 


MAC.CON -- addr 
Returns the address of the Mac console device table. The phrase 
MAC.CON CONSOLE ! 
directs output to the Mac console. 


MOUSEDOWN -- п 
Returns the value of a mouse down event (ав returned by DO.EVENTS). 


NEW.WINDOW --- <<compile time>> 
-- wptr <<run time»» 
Defining word which creates text window specifiers. When the window 
specifier is later executed, its window pointer is returned on the stack. 


PAGE aS 
Clears the window and puts the cursor in the upper left corner. 
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SCREEN.BOUNDS -- addr 
Returns the address of the rectangle containing the screen boundaries. 
The rectangle coordinates are in packed 16-bit values for top, left, 
bottom, and right. 


SYS.WINDOW . -- addr 
Default MacFORTH window name. This is the window presented when 
MacFORTH is active. 


TYPE addrNcnt -- 
Outputs the specified string to the current window. 


W.BEHIND front wptrNback wptr -- 
Causes the window specified as ‘back wptr' to be opened behind ‘front 
wptr. 


W.BOUNDS x1\y1\x2\y2\woptr -- 
Sets the bounds of the window specified. 


W.TITLE addrNwptr -- 
Places the supplied string address into the window parameter list. 
When the window is opened the title string is taken from the specified 
address. 


W.TYPE n\wptr -- 
Sets the window type. The default is 0 (document windows). 


WINDOW wotr -- 
Sets the specified window as the window for output. АП text and 
graphics images will be output to that window. 
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Overview 


This chapter discusses how MacFORTH interfaces to the Macintosh file 
system. Using MacFORTH, you can create, read and write any standard 
Macintosh file. This allows you to share data among applications. 


You can have up to 9 files assigned and open at a time for accessing the data 
within a file. MacFORTH supports two file types: data and program (or 
“plocks") files. The records within a data file can be one of three types: fixed 
length records, text records and virtual data files (free-format records). The 
records within a program file are fixed length records, each containing 1024 
characters. 


We refer to program files as "blocks" files because they are made up of source 
code blocks (as explained ín the Editor chapter). 


File Input/Output Operation Result Codes 


For each file operation a result code is returned in the variable IO-RESULT. 
This result code allows you to check the operation to see if it completed 
successfully, and if not, why not. 


Each of the 1/0 result codes are listed in Appendix B of this chapter for your 
reference. If the file operation is successful, the result code is 0, otherwise 
the value indicates an error condition. This allows you to monitor the result 
of each file operation. You can then set the level of error checking from no 
checking to full error checking/re-try attempts, etc. If you aren't concerned 
with the result of the operation, ignore it. 


The word ?FILE.ERROR is provided to handle file manipulation error 
conditions in a basic manner. It is executed immediately following a file 
operation and, if an error occurred, will abort the current task displaying the 
appropriate error message. For example if you executed the phrase (don't try 
it now) 

1 OPEN ?FILE.ERROR 


and the file assigned to file number 1 was not found (1/0 result code -43), the 


current task would be aborted and the error message "File Not Found" would 
be displayed. 
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File Assignment 


The Macintosh file system is based on assigning files (using their names) to a 
file number and using that number in referring to the file. In MacFORTH, we 
recommend that you use a CONSTANT value to refer to the file number to make 
your programs more readable. 


File Numbers The first thing you must do when preparing to create a new file, 
or access an existing file, is assign it a file number. MacFORTH allows you to 
access up to 9 files using file numbers 0-8. If you use a file number outside 
of the range 0-8, MacFORTH will issue the error message "Illegal File*". 


The command ASSIGN assigns a file number to a file name and is used in the 
following format: 
<"file name"> «filet (0-8)> ASSIGN 


For example, the phrase 
" Employee fige" 1 ASSIGN 


would assign file number 1 to the file titled "Employee Аде". As we 
mentioned above, it is a good idea to create a constant for file numbers. In 
the above example, you could execute 

1 CONSTANT AGE.FILE 

" Employee Age" AGE.FILE ASSIGN 


Later references to the file can be made using the constant, making your 
program easier to read and understand. 


Alternate Volumes 
You can access files on another (previously mounted) volume by simply using 
the volume name as a prefix to the file name in the ASSIGN statement. For 
example, to assign the file “Employee Salary” on the volume “Employee 
Information”, to file number 3, you would execute: 

3 CONSTANT SALARY.FILE 

"Employee Information:Employee Salary” SALARY.FILE ASSIGN 


When you access the file later, you will be prompted to insert the appropriate 
disk if it is not currently in the drive. 
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Displaying File Assignments 


You can display the current file assignments by executing the ?FILES 
command. Each file number is displayed with its associated file name. А 
capitalized "О" next to the number implies the file is open. A lowercase "р" 
indicates it is a blocks file, a capitalized "B" next to a file number indicates 
it is the current blocks file. 


Opening a File 


Once you have assigned a file a file number, use the OPEN command to open a 
file for access. Use the following format: 
«filet» OPEN 


It is always a good idea to check the 1/0 result code after opening to be sure 
it was opened correctly. 


Displaying the Disk Directory 


The DIR command displays the disk directory of the specified drive. To 
display the directory of the disk in the internal drive, execute: 
INTERNAL DIR 


To display the directory of the disk in the external drive (if present), execute: 
EXTERNAL DIR 


The following information is presented when you use the DIR command: 
1.) volume name 
2.) number of files 
3.) amount of space available 
4.) volume creation date 
5.) volume last modified date 
6.) for each file: 
a.) file name (first 19 characters) 
b.) file attributes 
i.) "L" for locked, "-" for unlocked 
ii.) "О" for in use, "-" for not in use 
C.) file type 
d.) file size 
e.) file creation date 
f.) file last modified date 


The difference between ?FILES and DIR is: ?FILES displays the file 
assignments and DIR displays the contents of the disk. 
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MacFORTH File Types 


There are two standard types of files you will use with MacFORTH: data files 
and blocks files. Data files contain data in a free-format. Blocks files 
contain program source code in sequential fixed length records. 


From the Finder, you can distinguish between these two file types by their 
icons. Data file icons are the standard file icon used (plain rectangular 
document icons). Blocks file icons are rectangular document icons with three 
rectangles within the bounds of the icon. These rectangles represent the 
three blocks of source code you can print out on a sheet of paper using the 
word TRIAD (explained in the Editor chapter). 


You can load a blocks file from the Finder by double clicking it. When a blocks 
file is loaded in this manner, MacFORTH is loaded first, then block 1 of the 
selected file is loaded (more about this later). 


Data Files 


Data files contain data in whatever format you specify. The data can be 
stored as a virtual array with no particular format all the way up to fixed 
fields within fixed records. 


Creating a DataFile 
If the file you have assigned already exists on the disk, there is no need to 


re-create it; go on to “Opening a Data File." 


Once a file is assigned, you can create it on disk with the CREATE.FILE 
command in the following format: 

«filet» CRERTE.FILE 
This command will create the file on disk and place it into the disk file 
directory as a "DATA" type file. Be sure to check the 1/0 result code returned 
by CREATE.FILE to be sure that the file was created correctly (ie. enough 
room on the disk, in the catalog, no naming conflicts, etc.). 
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Allocating Space in a Data File 
There are three methods you can use for allocating space for files: 


a) Use the ALLOCATE command 
b) Don't (let the system do it for you) 
с) Both a) агар) 


When you create a data file, no space is initially allocated for data in the file. 
To create some space using method a), use the ALLOCATE command to 
allocate space for the file on the disk. The space allocated is contiguous on 
the disk. ALLOCATE is used in the following format: 

«number of bytes in the file» «filet» ALLOCATE 


Suppose you wanted to allocate enough space for 100 records, each 50 
characters in length. The number of bytes needed is 5000 (100 * 50), so you 
could execute (assuming file* 5): 

5000 5 RLLOCRTE 


To create some space using method b), you can simply start writing data into 
the file. This appends data to the file, allocating space for the data as 
needed. Each time you write data into the file, the furthest write operation 
into the file sets the end-of-file pointer. You can write past the end-of "file 
pointer (and re-set it), but you can't read past it. This simply means that you 
should write data to the last position in the file you will access before trying 
to read from it. 


You can also combine both methods to create space in your file. You may want 
to start out and allocate some space in the file and as the file grows, simply 
append data to the end, increasing its size. 


Reading/Writing in a Data File 


MacFORTH supports three data file record types: fixed, text, and virtual. Each 
type has is own best use and you are free to use any type you like within an 
application. Fixed record files are the simplest and most useful, text record 
files make efficient use of disk space for text storage, and virtual record 
files are the most flexible. 


The MacFORTH file system reads and writes data records from a record buffer 
from/to a file. A record buffer is simply an area in memory that you specify 
for reading/writing records. To create a record buffer, simply allocate the 
amount of space needed for the longest record you will read or write. 
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For example, if you will be accessing data records іп a file and know that the 
maximum record length is 60 bytes, you could create a record buffer by 
executing: 

60 CONSTANT REC.BUF.SIZE 

CREATE REC.BUF REC.BUF.SIZE — RLLOT 


This phrase created a record buffer called REC.BUF and allocated 60 bytes 
for it. If you create a record buffer smaller than your record size 
and read data into it, you could crash the system. When the data is 
read from the file, it will continue to overwrite your dictionary, so be sure to 
allocate enough space. That is why we created the constant REC.BUF.SIZE in 
the above example. When reading or writing, you can specify the size of the 
buffer as a constant to be sure you use the right size. 


You may also use the scratchpad buffer, PAD, but be sure to use a reasonable 
record size to avoid overwriting the end of the object space. 


Fixed Record Data Files 


Fixed files are made up of records of the same size. This format allows you 
to access any record in the file by its record number. The records іп a fixed 
file are in sequence starting at record number 0 through the last record in the 
file. 


specifying Record Size After you assign a fixed file, before you can read or 
write data in the file, you need to specify the size of each record in the file. 
Use the SET.REC.LEN command in the following format: 

«max rec size? <file> SET.REC.LEH 


For example, if you were using fixed record lengths of 37 in fixed file *3 
(using the constant MYFILE) you would execute: 
37 WMVFILE SET.REC.LEH 


This is the value used by the MacFORTH system when reading/writing records 
in a fixed file. If you don't specify the record size, you'll get the error 
message "Fixed Record Length = 0” when you try to read or write records in 
the file. 


Accessing Records Once you have assigned and opened the file, and allocated 
a record buffer for the file, accessing records within the file is simple. To 
read a record into your buffer, you supply the buffer address, record number 
and file number to the command READ.FIXED . For example, to read record 5 
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from file *3 (represented by the constant MYFILE) into a buffer named 
REC.BUF, you would execute: 
REC.BUF 5 МУЕН Е AEAD.FIXED 


Similarly, to write a record, you use the same format. For example, to write 
record 12 to file * MYFILE from a buffer named REC.BUF, you would execute: 
REC.BUF 12 MYFILE WRITE.FIXED 


Text Files 


Text files are made up of a sequence of text (ASCII characters) records 
separated by carriage returns. This is an efficient way to store text files 
because only the space needed for the text is used (no wasted space as may be 
found in using fixed records for variable length text storage). 


Because the records in a text file are variable length, you won't know how 
long a particular record is until you have read the entire record into your 
buffer. 


Rewinding a Text File Torewind a text file (set its position pointer to point 
to the start of the file), use the word REWIND in the following format: 
«filet» REWIND 


For example, to rewind file * MYFILE (where MYFILE is simply a constant 
containing the file number), you would execute 
MYFILE REWIND 


Reading Records in a Text File Once you have assigned and opened the text 
file you want to use, and created a record buffer for the records, reading and 
writing records from/to the file is simple. For example, to read the first 
text record in file number MYFILE into a record buffer named REC.BUF with 
length of REC.BUF.LEN, you would execute: 

HVFILE REWIND 

REC.BUF REC.BUF.LEN MYFILE READ. ТЕКТ 


To read the next record in the file, you would execute: 
REC.BUF REC.BUF.LEN MYFILE READ. TERT 


and so on. After each read operation in a text file, the file pointer is 


positioned to the first byte of the next record. Subsequent read operations 
read the next record in the file automatically. 
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What if your buffer isn't long enough for the record being read? Unlike the 
fixed record files, you can use a buffer that is shorter than the length of the 
record being read. (We recommend you use record buffer long enough to accept 
the longest text record in the file for simplicity.) Let's look at an example to 
illustrate this point. Suppose that the next record in the text file you are 
reading from is 10 characters in length, consisting of the following: 

Сг” | 2345 678 9 10 

Chars: B o b S m i t h <c 


if you read this record into a buffer of length 10 or more, you will get the 
entire record and can continue. But, on the other hand, if you read this record 
into a record buffer of length, say 7, you will only get the first seven 
characters. To get the rest of the record ( "t", "h", and the carriage return), 
perform a read command just as if the rest of the record was the next record 
in the file. The read will terminate on the carriage return, so only the 3 
characters remaining will be read. 


When MacFORTH reads a text record into a buffer, it transfers characters to 
the buffer one at a time until it encounters a carriage return in the file 
"normal" termination) or until the record buffer is full. ІТ the record buffer 
is full prior to encountering a carriage return, the file pointer is left pointing 
at the next character to be read from the current text record. Subsequent 
reads will begin at that character (just as if it were the first character in 
the record). 


Writing Records іп a Text File То add records to a text file use the 
WRITE.TEXT command as follows: 
«buffer addr> «record length» «filet» WRITE. TEXT 


For example, to add the record in the buffer REC.BUF which is 10 bytes long 
(including a carriage return at the end) to file number MYFILE, you would 
execute: 

REC.BUF 10 MYFILE ИНІТЕ.ТЕЯТ 


When writing text records, you must append a carriage return to the end of 
the record (EOL). 
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Virtual Files 


Virtual files are the most flexible file format of the three types supported by 
MacFORTH. Using virtual files, you could re-write each of the existing file 
structures or create your own new file types. To MacFORTH, a virtual file is 
simply a virtual array of characters. You can manipulate this array in any 
way you like. 


Accessing Data in a Virtual File То read data within the file to a buffer, use 
READ. VIRTUAL in the following format: 
«buffer addr> «length? «file addr> «file t» RERD.UIRTURL 


The only new parameter you may not recognize is «file addr>. This is the 
offset from the start of the file where you would like to start reading data. 
For example, to read 100 bytes from the file number 6 (represented by the 
constant MYFILE) starting at the beginning of the file into the record buffer 
REC.BUF, you would execute: 

REC.BUF 100 0 MVFILE RERD.UIRTURL 


To read 7 bytes from the same file, starting at the 23rd element in the file 
into the record buffer REC.BUF, you would execute: 
REC.BUF 7 23 MYFILE RERD.UIRTURL 


Writing data into the file is done in a similar manner using the word 
WRITE. VIRTUAL in the following format: 
«buffer addr> «length? «file addr> «filet» WAITE.UIRTUAL 


For example, to write 30 bytes of data from PAD, starting at position 100, 
you would execute: 
PAD 30 100 МЕНЕ WRITE.UIRTUAL 
Blocks Files 
Blocks files contain program source code. Each file is made up of a sequence 


of blocks (1024 bytes) numbered from zero through the maximum block in the 
file. 


Creating a Blocks File 

If the file you have assigned already exists on the disk, there is no need to 
re-created it; go on to "Opening a Blocks File." 

Once you have ASSIGNed a file number to the file you want to use as a blocks 
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file, create the file with іле CREATE.BLOCKS.FILE command іп the 
following format: 
«filet» CREATE.BLOCKS.FILE 


This command will create a file on disk and place it into the disk file 
directory. Be sure to check the 1/0 result code to be sure the file was created 
correctly. 


Allocating Space in a Blocks File 
When you create a new file, you don't have any room for blocks in it. To 


allocate room in the file, use the APPEND.BLOCKS command in the following 
format: 
«tof blocks? «filet» APPEND.BLOCKS 


For example, to initially create space for 10 blocks in a newly created blocks 
file, (with file number represented by the constant MY.BLOCKS) execute: 
10 HV.BLOCKS APPEND.BLOCKS 


FORTH blocks are normally printed three to a page in “triads,” so you may 
want to allocate space in multiples of three blocks as a convenience when 
printing (by no means is this necessary). 


Re-allocating Space Within a Blocks File 
Once you have allocated space to a blocks file, you can change the size of the 


file with the APPEND.BLOCKS command used in the following format: 
<* of blocks» «file*» APPEND.BLOCKS 


where «*of blocks» is positive to add blocks, or negative to delete blocks 
from the specified blocks file. For example, to add 6 blocks to the file 
identified by the constant MY.FILE, you would execute 

6  MHV.FILE APPEND.BLOCKS 


or to delete 5 blocks from that file: 
-3 MHV.FILE APPEND.BLOCKS 


Accessing Program Source Code in a Blocks File 
To access the data within the file as a blocks file, you select it as the 


"current blocks file" To select a file, use the SELECT command in the 
following format: 
«filet» SELECT 
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This command selects the specified file as the current file for block access. 
Once assigned and opened, you can select any blocks file to be the current 
blocks file with this command Be aware that MacFORTH does not 
discriminate what files can be used as blocks files. If you assign, open and 
select a data file as the current blocks file, MacFORTH will treat the data file 
just as if it were а block record. You are responsible for selecting the proper 
file. We recommend that you use the word "blocks" in the name of your file to 
distinguish it from other files on your disk (ie. "Graphics Blocks' or 
"Checkbook Blocks", etc.). 


When executed, SELECT saves the block buffers and the file information out 
on the disk, insuring that any unwritten data from the previous blocks file is 
saved, and then selects the specified file as the current blocks file. 


The MacFORTH word USE" is provided for convencience when you want to edit 
a blocks file. Used in the form 
USE" «file name>" 


the file specified is assigned to the first available FCB, opened, and selected 
as the current blocks. For example, if you wanted to edit the "Demo Blocks" 
file, you could execute: 

" Demo Blocks" 3 RSSIGN 

3 ОРЕН ?FILE.ERROR 

3 SELECT 


or, you could use 
USE" Demo Blocks" 


MacFORTH Blocks File Structure 

MacFORTH reserves the first two blocks in a file (blocks O and 1) for a special 
purpose. Block O is used as a comment block for the file and can't be loaded. 
Block 1 is used as a load block for the entire file. 


Use block 0 to make notes about the file, current revision of the program, etc. 
This is handy for later reference. 


Use block 1 as a load block for your application. This important because when 


you open (by double clicking) a MacFORTH blocks file from the Finder, 
MacFORTH selects the file and loads block 1. 
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Including a File 
The word INCLUDE” allows you to load another blocks file. The specified file 


will be assigned , opened, and loaded (by loading block 1). You can use 
INCLUDE” from any file to load another file, then continue loading the 
original file. For example, if you had the source code to a file named 
"Checkbook Blocks", you could load it by executing 

INCLUDE" Checkbook Blocks" 


INCLUDE” may be nested . This means that a file that is being included can 
include a file itself. 


When INCLUDE" is executed, the specified file is assigned to the first 
available FCB. 


Closing a File 


When you have finished using a file, you should close it. This ensures that all 
data is written to the disk and that the file system updates all necessary 
information about the file. To close a file, simply execute the CLOSE 
command using the file number to be closed. For example, to close file* 7, 
you would execute: 

? CLOSE 


You should always check the 1/0 result code when you close a file to be sure 
it was properly closed. 
Deleting a File 
To remove a file from the disk (and destroy all data contained in the file), use 
the DELETE command. Once a file is deleted, you cannot recover the data 
from it, so use this command with caution. To delete а file from the current 
disk, execute the DELETE command as follows: 

«file*» DELETE 
Ejecting a Disk 


You can eject a disk from the drive with the command 
INTERNAL EJECT 


To eject the disk in the external drive (if present) execute 
EXTERNAL EJECT 
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Mounting а New Volume 


To mount a new volume, simply eject the disk that is in the drive and insert 
the desired disk (volume). MacFORTH will automatically mount the new 
volume. 


Advanced File System Topics 


This section discusses some of the inner workings of the MacFORTH file 
system. It is intended for the advanced user. You do not need to read this 
section to use the file system. 


File Control Blocks MacFORTH uses an array for each file number used. The 
information in this array is required by the Macintosh file commands. You can 
examine and alter (at your own risk!) any information about a file by 
examining its file control block. 


The command >FCB returns the address of the fcb array for the given file 
number. Each array is 90 bytes long. 


File Pointer The basis of the MacFORTH file system is the word POINT which 
points into a file. POINT allows you to point anywhere in a file, randomly, 
sequentially, relative to the front, back or anywhere in-between. POINT is 
used in the following format: 

«position? «position mode» «file*» POINT 


Position Modes There are four position modes for use with POINT : 


Mode Position Type 

FROM.START position relative to the start of the file 
FROM.END position relative to the end of the file 
FROM.CURRENT position relative to the current file position 
VIRTUAL position to any specified location in the file 


To clarify this point, let's look a some examples (we'll use the dummy 
constant FILE* to represent a valid file number): 


a) position at the start of the file: 
0 FRON.START FILES POINT 
b) position at the end of the file 
0 FRON.END FILES POINT 
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с) position at the 17th character in the file 
17 FROM.START FILES POINT 

d) position 4 characters before the current position in the file 
-4 FROM.CURRENT FILES POINT 


Note: The above three operators set the file mode to text. This means that 
the file pointer will be positioned where you specify, but until you change the 
mode (if text is not the desired mode), you will be reading and writing text 
records (terminating on carriage returns). 


You can also use the position mode VIRTUAL to point to any byte in the file. 
Using the above examples: 


a) position at the start of the file 
0 VIRTUAL FILE* POINT 
b) position at the end of the file 
«max * of bytes in file» VIRTUAL FILES POINT 
C) position at the 17th character in the file 
1? UIRTURL FILES POINT 
d) position 4 characters before the current position in the file 
CURRENT.POSITION 4 - UIRTURL FILE* POINT 


File Names The name given to a file is any string of up to 255 characters in 
length. Invalid characters include colon €) and double quote (7). 


Volume Names A volume name is any string of up to 26 characters in length 
and terminated by a colon (:). 


Maximum File Length For practical purposes, the maximum file size is 
limited only by the amount of available space on a disc. The absolute file size 
maximum is 16 megabytes (16,722,216 bytes). The maximum record size to 
be read at one time is 64 kilobytes (65,535 bytes), but is currently limited to 
the amount of memory available. 
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aan сиы 


Appendix A: Example File Usage 


In order to simplify your task of using the file system in your application, we 
present the following simple example as a template. The example is a simple 
system of keeping track of three people (by their last names) and their ages 
in the fixed file "Ages File". Their names and ages are: 


Name Age 
SMITH 26 
JONES 38 
WILSON 31 


and we will translate them to: 
CREATE ВЕСІ 26C, ," SMITH” 
CREATE REC2 38 C, ," JONES " 
CREATE RECS 31 C, ," WILSON" 


(Note that we are simply placing the data into the dictionary for the purpose 
of example. This data would normally be accessed via another file or input 
directly from the keyboard.) 


Now, continue with assigning, creating and opening the file: 
1 CONSTRHT RGES.FILE 
"Ages File" AGES.FILE ASSIGN 
RGES.FILE CREATE.FILE _ ?F ILE ERROR 
AGES.FILE OPEN ?F ILE. ERROR 


The buffer used to read the records into: 
8 CONSTANT AGES.REC.SIZE 
CREATE AGES_BUF AGES.REC.SIZE ALLOT 


Set the fixed record size: 
AGES.REC.SIZE AGES.FILE SET.REC.LEN 


Next, we'll write the records into the file: 
НЕСІ 1 AGES.FILE WRITE.FIXED ?FILE.ERROR 


REC2 2 AGES.FILE WRITE.FIXED ?FILE.ERROR 
REC3 3 AGES.FILE WRITE.FIXED ?FILE.ERROR 


(Notice that we didn't need to set the end of file pointer; it was done 
automatically by writing data at the end of the file each time. The file 
system automatically increased the file size.) 
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Here's a word which will read each record and print the information: 


DISPLAY.RECORD ( --- | display data for the current rec) 
AGES_BUF 1+ COUNT TYPE ( display the name ) 
." is" AGES_BUF Ce . ( display the age ) 


years old." 


SHOW. ARGES ( --- ) 3 0 ( the number of recs in file ) 
DO RGES.BUF | AGES.FILE RERD.FIMED ?FILE.ERROR 
CR DISPLAY. RECORD 
LOOP  ; 


Suppose you wanted to change JONES’ age to 39? 


AGES_BUF 2 AGES.FILE READ.FIXED ( read Jones' record ) 
39 RGES BUF C! ( change the age ) 
RGES BUF 2 RGES.FILE WRITE.FIXED ( re-write the record ) 
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Appendix В: File System 1/0 Result Codes 


The following result codes are returned by the system ROM after an 
Input/Output operation has taken place: 


Result 
Code 
0 
-33 
-34 
-35 
-36 


-37 
-38 
-39 
-40 
-41 


-42 
-43 
-44 
-45 
-46 


-47 
-48 
-49 
-50 
-51 


-53 
-54 
-59 
-56 


=37 
-58 
-59 


-60 
-61 


File System 


Meaning 
No error. Operation completed successfully. 


Directory full 
Disc full 

No such volume 
Disc 1/0 error 


Bad filename 

Fork not open 

End of fork 

Position error. Tried to position before start of file. 
Memory full 


Too many forks - more than 12 forks open 
File not found 

Disc write protected 

File locked 

Volume locked 


One or more files are opened 

Duplicate file name 

Fork already opened with read/write permission 

No drive number specified 

No file assigned, reference number specifies nonexistent 
access path 


Volume not on-line 

Locked volume can't be written to 

Volume already mounted and on-line in drive 

invalid drive number - number specified doesn't match an 
existing drive 

Invalid disc directory 


External file system; can't recognize volume 

Problem during rename 

Master directory block is bad 

Read/write or open permissions - writing not allowed 
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Appendix С: File System Glossary 


Glossary Key 
The following symbols and abbreviations are used in this glossary: 


Symbol Meaning 

file* a valid file number (0-8) identifying a file 
file$ the string address of a file name 

name string address with count in first byte 

pos mode the positioning mode used for the file system 


Glossary Definitions 


"BLKS -- file type 
Constant containing the BLKS file type. 


"DATA -- file type 
Constant containing the DATA file type. 


"MATH -- file type 
Constant containing the MATH file type. 


"PICT -- file type 
Constant containing the PICT file type. 


"TEXT -- file type 
Constant containing the TEXT file type. 


GF ILE.NAME file* -- file$ 
Returns the address of the file name string of the specified file. 


@REC.LEN тее == rec len 
Returns the fixed record length for the fixed record file specified. 


FILE.ERROR error* -- 
Displays the file error message for the given file error number. 


*MAX.BLK* fcb -- addr 
Returns the address of the maximum block number element (32-bits) in the 
file control block. For example: 
0 >FCB +MAX.BLK* e 


returns the maximum number of blocks in the blocks file with file number 
zero. 
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*REC.SIZE fcb -- addr 
Returns the address of the record size element (16-bits) in the file 
control block. For example: 
О›ЕСВ *RECSIZE We 
returns the record size of the file with file number zero. 


*SCR* fcb -- addr 
Returns the address of the screen (block) number element (32-bits) in the 
file control block. For example: 
0 »FCB +SCR¥ e 
returns the current block number of the blocks file with file number zero. 


*FILES --П 
Returns the maximum number of files that MacFORTH allows to be open at 
one time. 


?EOF -- flag 
Returns a true flag if the end-of-file marker of the current file has been 
reached for the file that was most recently read/written. 


?FILE.ERROR --- 
Checks the value of IO-RESULT and aborts the current task, displaying an 
error message if IO-RESULT is non-zero. 


?FILES eee 
Displays the current file number assignments. 


?ОРЕМ file* -- flag 
Returns a true flag if the file number specified is open, otherwise the flag 
is false. 


>FCB file* -- fcb 
Returns the file control block address for the file number specified. 


ADD.BLOCKS *blocks\file* -- 
Adds *blocks to the file. 


ALLOCATE file size\file# -- 
Allocates the specified number of bytes for the specified file. 


APPEND.BLOCKS #blocks\file* -- 
Adds/deletes blocks to/from the specified file. ІТ *blocks is positive, 
that number of blocks is added to the file (disc space permitting) If 
*blocks is negative, that number of blocks are deleted from the end of the 
file. 
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ASSIGN file$\file* -- 
Assigns the file name specfied to the file number specified. Sets 
IO-RESULT to O if the file number was not previously assigned, 
otherwise it stores the name string address of the previous string into 
IO-RESULT. 


BLOCK-FILE -- addr 
Variable containing the file number of the current blocks file. 


CLOSE file# == 
Closes the specified file, returning the result code for the operation. 


CLOSE.ALL --- 
Closes all files. 


CREATE.BLOCKS.FILE — file* -- 
Creates the specified blocks file on disc. The file is specified as a 
MacFORTH blocks file and can be loaded from the finder. 


CREATEFILE file* -- 
Creates the specified file on disc. 


CURRENT.POSITION file* -- position 
Returns the position mode under the current position pointer into the file 
number specified. 


DELETE filet -- 
Deletes the specified file from disc. 


DELETE.BLOCKS *blocks\file* -- 
Deletes *blocks from the file. 


DIR drive* -- 
Displays the directory for the disc in the specified drive. Use INTERNAL 
and EXTERNAL to specify the drive. 


EXTERNAL --n 
Constant value which specifies the external disc drive. 


EJECT drive specifier -- 
Ejects the disc from the specified drive. Use INTERNAL or EXTERNAL as 
the drive specifier. 


FCB.LEN --n 
Constant containing the length of an FCB. 
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FILE.TYPE file type\file* -- 
Sets the specified file to the file type given. 


FLUSH.FILE file* -- 
Writes the file control block of the file specified out to disc. 


FROM.END -- pos mode 
Returns the value which specifies that positioning is relative to the end of 
the file. 


FROM.CURRENT -- pos mode 
Returns the value which specifies that positioning is relative to the 
current file position. 


FROM.START -- pos mode 
Returns the value which specifies that positioning is to take place 
relative to the start of the file. 


GET.EOF file” == *bytes 
Returns the number of bytes in the specified file. 


GET.FILEINFO  file* -- 
Reads the file information from disk for the specified file. The 
information is kept in the file's FCB. 


GETFILETYPE  file* -- file type 
Returns the file type of the specified file. 


IEEEGAL FILE === 
Displays the error message “Illegal File*" and aborts the current task. 


INCLUDE" aS? 
Used in the form: 
INCLUDE" «file name>" 
to include the contents of the blocks file "«file name>” by loading the first 
block in the file. 


INTERNAL -- N 
Constant value specifying the internal drive. 


IO-RESULT -- addr 


Returns the address of the variable containing the 1/0 result code of a file 
operation. 


File System Page 9-23 June 4, 1984 


LOCK.FILE file* -- 
Locks the file number specified. 


OPEN file* -- 
Opens the specified file. 


OPEN.RSRC file* -- 
Opens the specified resource file. 


POINT pos mode\position\file* -- 
Positions the file pointer to the specified location in the specified file. 


POSITION.FIXED rec*Nfile* -- rec len\file* 
Fixed record file primitive. Positions the file pointer at the start of the 
specified record within the specified file. 


READ.FIXED addr\rec*\file* -- 
Reads the data from the file with number file* at the record with number 
rec* to addr. 


READ.TEXT addr\cnt\file* -- 
Reads the data record from the file with file number file* at the current 
position to addr for a maximum of cnt bytes. If the record is larger than 
cnt bytes, the pointer in the file is left pointing at the last byte 
transferred. The next read (without adjusting the pointer) will begin with 
the rest of the record. 


READ.VIRTUAL addr\cnt\file addr\file* -- 
Reads the data from the file with file number file*, starting at the file 
address given to addr for cnt bytes. 


REWIND Tee == 
"Rewinds" the file pointer to point at the beginning of the file. 


REMOVE file* -- 
Removes the specified file number. 


SELECT file” -- 
Specifies the file number as the current blocks file. 


SET.EOF *bytes\file* -- 
Sets the size of the file number given to the number of bytes specified. 


SET.FILE.INFO  file* -- 
Writes the file information from the file's FCB to disk. 


File System Page 9 - 24 June 4, 1984 


SET.REC.LEN rec len\file* -- 
Sets the fixed record length for the fixed record file specified. 


UNLOCKFILE X file* -- 
Unlocks the specified file. 


USE" Ee 
Assigns, opens, and selects the named blocks file. Used in the form: 
USE" «file name>” 


VIRTUAL -- pos mode 
Returns the value which specifies that the file access is virtual. 


WRITE.FIXED addr\rec*\file* -- 
Writes the data at addr to the record at rec* in the file with number file*. 


WRITE.TEXT addr\cnt\file* -- 
Writes the data at addr for cnt bytes (the last byte must be a carriage 
return) into the file with number file* at the current file position. 


WRITE.VIRTUAL addr\cnt\file addr\file* -- 


Writes the data at addr for cnt bytes into the file with number file* 
starting at the file addr given. 
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Chapter 10: Printer/Serial 
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Overview 


MacFORTH allows you to output anything that you can put on the screen, both 
characters and graphics, to an Apple Imagewriter printer. If you have any 
other type of printer, refer to a section at the end of this chapter entitled 
"Other Printers”. 


Text Output 


Any character output to the screen can also be output to the printer. To do 
this, use one of three methods: 


a.) Select the "Printer" item from the "Options" menu. Output is then 
directed to both the printer and the screen. 


b.) Hold down the command key and press the key labelled 'P'. This 
selects the Printer menu entry. 
C.) Execute PRINTER ON to activate the printer. 


To disable output to the printer, you can use A or B above (they actually 
toggle the printer function ) or execute 
PRINTER OFF 


If you are doing any special formatting on the printer and dont want the 
output to appear on the screen, execute: 
PRIHTER.OHLY CONSOLE ! 


To return output to both the printer and the screen, execute: 
MAC.CON CONSOLE ! 


PRINTER.ONLY does what its name implies. In the event of an error or if the 
end of the input is reached MacFORTH always returns to the console as the 
output device. 


You can also direct any string to the printer with the word PRINT. PRINT 
works just like TYPE, only the string is output to the printer instead of the 
display. 


Many printers need a termination character (like CR or LF) before they will 
print the data sent to them. To output a carriage return or line feed execute 
CRLF 2 PRINT ( CR,LF) 
CRLF 1 PRINT { just CR) 
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Window/Screen Output 
MacFORTH allows you to dump the contents of either only the active window 
or the entire screen to an Imagewriter printer. There are two methods of 
dumping the entire screen: 
A) Release the caps lock key and then simultaneously press the 3 
keys labelled command shift 4. 


В) Execute PRINT. SCREEN 


To dump only the contents of the front window use one of the following two 
methods: 
A) Depress the caps lock key and then simultaneously depress 
command shift 4. 


B) Execute PRINT. WINDOW 


It is also possible to print just a portion of the current window with the 
word PRINT.BITS. Used in the form 
«top» «left» «bottom» «right? «bitmap адаг» PRINT.BITS 


the rectangle specified by «top» «left? and «bottom» «right in the active 
window will be printed. The bitmap for a window is offset 2 bytes into the 
window record, so the address for the bitmap is GET. WINDOW 2+ 


For example, to print the contents of the upper left corner of the window, 
execute: 
0 0 50 60 GET.WINDOW 2+ PRINT.BITS 


Other Printers 


For best results, CSI strongly suggests the purchase of an Apple Imagewriter 
printer. If you choose to use another type of printer, you will have to either 
provide your own cabling and printer configuration or arrange with someone 
who can. 


Note: CSI does not guarantee that the instructions provided will enable you to 
interface to any printer other than the Imagewriter. The following 
information is intended to provide background information to individuals who 
have fabricated cables for and interfaced printers to other computers. It is 
not something that be attempted by inexperienced users. Beyond supplying 


background information, CSI will not support non-Imagewriter printers. 
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Interfacing to Another Printer 
In order to interface your non-Imagewriter printer to the Macintosh, you will 
need the following: 


a) a printer with an RS232C Serial interface, and 

b) a specially fabricated cable to connect between the printer and 
the Mac (refer to ST. MAC Magazine, 1984, pg.44 for Mac pinouts) 

C) be sure to satisfy the control signal requirements of your printer 
(ie. DSR, CD, RTS) 


Printer Port Configurations 
Default text output to the printer port occurs at 9600 baud, no parity, 8 data 
bits, | stop bit. Handshake protocol for output flow control is XON/XOFF. If 
your printer cannot be configured to this format, you will need to reconfigure 
the Mac printer port to a format your printer is capable of. Use: 

<#stop bits? «parity? <®bits> «baud rate» CONFIGURE.PRINTER 


where  *stopbits 1,2 = 1 stop bit, 2 stop bits 
parity 0,1,2,3 =  none,odd,none,even 
*bits 5,6,7,8 = *of data bits 
baud rate 75-57600 


For example: 
10 8 1200 CONFIGURE.PRINTER 


reconfigures the printer port for 1 stop bit, no parity, 8 data bits, 1200 baud. 


Graphics Output 

Unfortunately, the industry has no real standards for dumping graphics to a 
printer. In order to output graphics data to your printer, you will need the 
following: 


а) The ability to output text as described above (consider a printer buffer 
if necessary ). 

b) A complete understanding of the way in which your printer accepts 
graphics information. 

C) You will then have to write a program which determines which bits 
are set in the desired display area, format them into a output buffer 
which will be compatible with your printer, and then dump successive 
output buffers to the printer. Use the MacFORTH graphics word: 

GET.PIXEL (x\y -- flag) 


to determine the state of each dot on the screen. 
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Serial Interface 


Screens 15 through 19 of the “FORTH Blocks” file on the MacFORTH system 
disc contain source code for the Macintosh serial communications port (the 
phone icon) То add the serial interface routines to your dictionary, load 
block 15 of the "FORTH Blocks” file. We have provided this source code for 
three reasons: 


First, it is optionally loadable. If you dont want to use it, you aren't 
penalized in memory usage. 


Second, many users of MacFORTH are newcomers to FORTH. This provides 
another example of FORTH source code. We encourage you to follow our 
example of spreading your applications source code over many blocks, leaving 
plenty of "white space” in your blocks. Note that each word is commented 
with both what is expected on the stack and a brief description of the action 
it takes. Many novice FORTH programmers try to cram as much as possible 
into a single block of source code, making it unreadable. Disks are cheap 
compared to the headache of trying to unravel an overstuffed block!! 


Third, for those users who have "Inside Macintosh", this is a good example of 
how to interface to a device driver entirely in high level FORTH. 


Serial Communications with a Host Computer 
The word HOST provides a simple terminal emulator. Set up the appropriate 
baud rate that your host computer expects with the word BAUD. For example, 
if your host communicates with you at 300 baud, you would execute: 

300 BRUD 


To enter into terminal emulator mode, execute: 
HOST 


To exit from terminal emulator mode, press the ~ key (it is the shifted key in 
the upper left corner of the keyboard). 
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Serial interface Implementation Details 

Given the source code for the serial interface driver, you should be able to 
follow our path of logic. The following summarizes the contents of each 
block containing source code: 


Block 15: Serial Interface Load Block 


SERIAL.FILE* -- addr 
Variable containing the file number to use for serial 1/0 operations. 
Actually, two files are required to support full duplex operations. 


SERIAL.IN -- file* 
Returns the file number for the input side of the serial interface. 


SERIAL.OUT -- file* 
Returns the file number for the output side of the serial inteface. 


INPUT.SIZE Size 
Constant containing the size of the serial input type ahead buffer. 
Change it to suit your requirements. 


INPUT.BUFFER -- addr 
Returns the address of the input buffer. 


SERIAL.OPTIONS -- addr 
Returns the addres of the array used to configure the serial 
interface protocol. 
Offset (bytes) Description 
XON/XOFF handshake enabled if byte is non-zero 
CTS handshake enabled if byte is non-zero 
XON character for software handshake 
XOFF character for software handshake 
Input abort codes: 
bit 4= parity error 
bit 5 = overrun error 
bit 6 = framing error 
5 Status change generates event 
bit 7 = BREAK state change 
bit 5 = CTS state change 
6 Enable XON/XOFF input flow control if byte is 
non-zero 


ANNO 
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OPEN.SERIAL = addrNcntNfile* -- 
Opens serial device driver on the specified file*. (Note: ?FILES 
will show the serial files as “.AIN" and ".AOUT".) addr and cnt 
specify the address and length of the input buffer to be used for 
type ahead. This buffer is used to make up for the time it takes to 
scroll up all bits within the window. The options array is used to 
define the port protocol. 


Block 16: Serial 1/0 


S.TYPE = addr\cnt -- 
Analagous to TYPE or PRINT. Output is sent to the serial port. 


S.EXPECT addr\cnt -- 
Analagous to EXPECT. No character editing (eg. backspace) is 
performed. 


S.7TERMINAL --n 
Returns n as the number of characters available in the input buffer. 
Returns О if none are available. 


S.STATUS -- stat2\stat 1 
Returns the serial device status. 


Stat]: 
bit 30 framing error 
bit 29 hard overrun 
bit 28 parity error 
bit 24 soft overrun (input buffer overflow) 
bits 16-23 non-zero: XOFF received to stop input data 
bits 8-15 read command pending 
bits 0-7 write command pending 
Stat 2: 


byte O non-zero XOFF flag 
byte 1 non-zero CTS flag 


S.?READY -- flag 
Returns a true flag if the serial driver is able to output (not held off 
by CTS or XOFF). 
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Block 17: Serial 1/0 


S.KEY -- char 


Reads char from the serial port. If no characters are available, 
S.KEY waits until one is sent. 


S.EMIT char -- 


Writes char to the serial port. Waits if not ready until ready for 
output. 


S.BREAK flag -- 
Sets Break if flag is non-zero, otherwise clears break. 


Block 18: Serial 1/0 
BAUD baud rate -- 
Opens the serial port if necessary and sets the baud rate. 


Block 19: Serial 1/0 


HOST ae 
Enters terminal emulation mode. Bi-directional XON/XOFF protocol 
supported. Exit via ~ key (shifted upper left key on the keyboard). 
Reducing the window size allows for faster throughput. 


Notes: 


(1) Input is not placed in the desk scrap. If you want to record transactions 
or transfer files, use HOST to logon and enter the editor. Exit and 
transfer data under program control. 


(2) You can change your textsize to allow either wider or narrower displays. 
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Chapter 11: Advanced Topics 


In this chapter we will discuss a variety of MacFORTH features which you 
will find useful in the course of programming. 


Topic Page 
Time and Date Functions 2 
Timer Functions 3 
TRACE and DEBUG Features 3 
INTERRUPT Option 3 
DEBUG Option 5 
TRACE Option 4 
UNIQUE.MSG Option 5 
LOWER.CASE Option 5 
QUIET Option 6 
User Specified Error Handlers 6 
Error Recovery 6 
Disabling Error Recovery 7 
Nesting Error Handlers 8 
Fixed Error Recovery 8 
Recovery Stack Frame Chart 9 
Memory Allocation 10 
Macintosh/MacFORTH Memory Map 11 
Vocabulary Data Structure 12 
MacFORTH Vocabulary Structure 14 
Character Cursor Symbol 15 

Cutting and Pasting Between 

Applications 16 
Macintosh Toolbox Interface 17 
Pre-Requisites 17 
Review of Pascal Data Types 17 
Toolbox Traps 17 
05 Traps 17 
Pascal Procedures 18 
Pascal Functions 18 
Complex Sound Generation 19 
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Time and Date Functions 


Your Macintosh maintains a count of the number of seconds that have passed 
since January 1, 1904 in its own internal counter. This counter is updated 
every second automatically by the computer and can be read by executing the 
word @CLOCK. To facilitate using this feature, we have provided you with 
the following words to display the time and date: 


.TIME$ — --- 
Displays the current time (as read from the internal clock) and 
displays it in the following format: 
НН:ММ:55 XM 
DATE$ --- 
Displays the current date (as read from the internal clock) and 
displays it in the following format: 
MM/DD/YY 


GET.TIME$ addr -- 
Copies the 11 byte time field ("HH:MM:SS XM") to addr. Be sure 
that you have 11 available bytes at addr as it will be 
overwritten. 


GET.DATE$ addr -- 
Copies the 8 byte date field ("MM/DD/YY") to addr. Be sure that 
you have 8 available bytes at addr as it will be overwritten. 


For more information on using the internal clock for display of time and date, 
refer to the MacFORTH Glossary entries for: 

FHT.DRTE$ ЕМТ,ТЕМЕ$ OAYS>  ?SECONDS  ?DAYS 
Timer Functions 
You can also use the clock as a timer. For example, to see how long it takes 
to display the entire words list of the current dictionary, you could execute: 

eCLOCK WORDS e@CLOCK SWAP - CR. ." Seconds" 
or to wait a specified number of seconds before continuing: 

: WAIT ( * of seconds -- ) 

eCLOCK + 
BEGIN eCLOCK OVER = UNTIL — DROP ; 


30 WAIT 
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TRACE and DEBUG Features: 


To facilitate debugging your program (if it has any bugs), we have provided 
you with an extensive set of tools for tracing and locating the problem. 


Interrupt Button Support 
When the user presses the interrupt button (the second button on the 
programmers buttons on the left side of the Mac) while MacFORTH is in 
control, MacFORTH locks out interrupts for a few seconds and then aborts the 
current operation. This action will recover from most unterminated loops and 
return control to the MacFORTH window. For example, try a definition like: 

: ENDLESS BEGIN ." again and again..." AGAIN ; 

ENDLESS 


Now reach around and press the interrupt button (not the reset button). 


DEBUG Option 
The debug option is present on the options menu bar. A check mark indicates 
the debug option is active. The keyboard equivalent command is command D. 


When the debug option is on, the text interpreter will check the stack depth 
after completion of each request. If any items are left on the stack, they are 
displayed using .S in the following format 

[depth] \ 3rd stack item \ 2nd stack item \ top stack item 


The 3rd and 2nd stack items are only displayed if they exist. Refer to the 
trace option for other features of the debug option. 
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TRACE Option 

The trace option provides a compile time elective trace feature. Basically 
this option instructs the compiler to compile new definitions in such a way 
that when they are executed, the name of each word will be printed along 
with the depth and contents of the stack. The trace option may be set and 
Cleared via the options menu bar. Pull down TRACE to toggle this function. 


For example, execute 
DEBUG ON 
TRACE ON 


: TEST 10000 ."*"]| . LOOP ; 
TEST 


Because the definition was compiled with the trace option on, when it 
executes, each word that is executed is preceded by printing its name and 
followed by printing the contents of the stack. (You can use the Menu Bar to 
halt and resume output.) 


The debug option enables and disables the run-time trace option's output. 
Now execute 

DEBUG OFF 

TEST 


and you will see that the trace feature was not executed because the debug 
option was off. 


NOTE: The trace option forces compilation of the trace feature into each word 
when it is turned on. The trace output is generated at run-time. This means 
that a great deal of overhead is carried with each word when it is executed 
with the trace option on. To get accurate timing information in time-critical 
operations, and for production applications code, disable the trace feature and 
re-compile the code. 


Remember, the TRACE option is altered by command D. You can toggle the 


trace function on and off during output by pressing command D (or by 
Selecting the Debug item from the Options menu). 
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UNIQUE. MSG Option 
The text interpreter searches the current words in the dictionary when a new 
definition is created. If a new entry with a name field the same as a prior 
entry is created, the interpreter can optionally display the error message 
ISN'T UNIQUE 
The phrase 
UNIQUE.MSG ON 


enables output of this warning message when a word is re-defined (or given 
the same name as a prior word). The phrase 
UNIQUE.HSG OFF 


disables output of this message. For example, execute the following 
UNIQUE.MSG ON 
TEST ; 
TEST ; 


UNIQUE.MSG OFF 
TEST ; 


You normally want to operate with the UNIQUE.MSG option enabled, however, 
when loading production code with known re-definitions, you may choose to 
disable this message. 


LOWER.CASE Option 
If you enter MacFORTH words in lower case, the text interpreter normally 
converts them to upper case before looking them up or creating a new 
dictionary entry. This allows you to reference a word by typing its name in 
upper or lower case. The phrase 

LOWER.CASE ON 


defeats this automatic conversion and allows you to define MacFORTH words 
in lower case that have different name fields than their upper case 
equivalents. The phrase 

LOWER.CASE OFF 


causes words to be again converted to upper case. The default state of this 
switch (at startup) is OFF. 
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QUIET Option 


MacFORTH normally sounds the beeper to attract your attention to an error. In 
some environments, this noise may be inappropriate. To quiet the beeper on 
errors, enter 

QUIET ON 


to sound the beeper on errors, enter 
QUIET OFF 


Default setting for this switch is OFF at startup. 


User Specified Error Handlers 


MacFORTH allows you to dynamically install and remove handlers which 
intercept errors defined by ABORT” or ERROR" . Error handler entry points, 
specified by TRY and ON.ERROR , are dynamically installed and remain active 
for the current definitions. If an ABORT” occurs or a RECOVER attempt is 
made within that defintion or any definition which it executes, the specified 
error handler will be invoked (unless another handler has been invoked at a 
lower level). When the current definition completes, error handling specific 
to that definition is replaced by that of the next higher level. Thus, error 
recovery is fully nested, and the scope of any error handler specified within 
a definition is relevant only to that definition (ог those it references). For 
example, 
OOPS! 0 O H/MOD ; 
00Р5! 


invokes a division by zero processor exception handler to execute the 
following: 
ABORT” ZERO DIVIDE TRAP ! " 


Error Recovery 

Because no exception handler was specified, the default abort occurred. By 
using ON.ERROR to specify a new handler, you can override the default 
message: 


: TEST (--) 
OH.ERROR ." TEST ABORTED " ABORT RESUME 
." TEST STARTED “ OOPS! 
." TEST COMPLETED " ; 


TEST 
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What TEST did was to create an error handler to process the abort condition. 
The phrase 
ON.ERROR ." TEST ABORTED " ABORT RESUME 


defined the error handler to display the message “TEST ABORTED" and then 
execute ABORT when an ABORT condition occurred. 


Disabli rror Recov 
You may cancel a posted retry handler at any point with the phrase 
RETRY OFF 


For example: 
: TEST4 ( --- ) 
ON.ABORT ." TEST4 ABORT ROUTINE" RETRY OFF RESUME 
CR ." INLINE TEST4 " CR OOPS! ; 


TEST4 


Let's follow what happened when you executed TESTA ; 
ON.ERROR .” TEST4 ABORT ROUTINE” RETRY OFF RESUME 


set up the new error handler. 
CR ." INLINE TEST4" 


displayed the message, 
CR 00Р5! 


caused an abort condition to occur. From here control was passed to the error 
handler, which displayed the message “TEST4 ABORT ROUTINE" and set RETRY 
to zero. Control was then passed to the code following THEN in TESTA, which 
again executed 

CR ." INLINE TESTé" CR OOPS! 


This time, with RETRY set to zero, the default error handler was executed and 
the system aborted with the message “ZERO DIVIDE TRAP !" 


Setting RETRY to zero only affects the most recently defined error handler 
(which is automatically removed at the end of the current definition anyway). 
Any previously defined error handler will be re-installed when the current 
definition is completed, allowing nesting of error handling routines. 
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Nesting Error Handlers 
For nested RETRYs, you may want to include the following definition: 


: PRIOR.RETRY { --- | pops the recovery stack frame  ) 
( off of the return stack ) 
RETRY e ?DUP IF 12 + е RETRY ! THEN ; 


This definition will remove the recovery stack frame off of the return stack 
and point RETRY at the next frame in the list (the list is zero-terminated). 


TEST6 ( --- ) 
ÜN.ERROR ." FIRST ABORT" PRIOR.RETRY 
ELSE ON.ABORT ." SECOND ABORT" PRIOR.RETRY 
RESUME 


RESUME OOPS! ; 
TEST6 


This example has shown multiple-level nesting of the error handlers using 
RETRY . The first level error handler will display the message “FIRST ABORT" 
and reset the error handler to the next higher handler (in this case, the 
default handler). The second level error handler will display the message 
"SECOND ABORT" and reset the error handler to the next higher handler (the 
first level error handler). 


Fixed Error Recovery 


TEST? ( f -- } 
ON.ERROR  PRIOR.RETRV 1 ABORT" TEST? ABORT ROUTINE" 
RESUME 
IF RECOVER ELSE 60 SYSBEEP THEN ; 
0 TEST? 
1 TEST? 


displays the message “TEST7 ABORT ROUTINE.” RECO 
recovers at the most recently specified recovery stack frame. 
TESTS ." үу" RECOVER ; 


VER unconditionally 


TEST8 


The error message "ILLEGAL RECOVERY ATTEMPTED' indicates that an 
attempted was made to recover with no handler posted. 
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TEST9 ( --- ) 
2 TRY 1- ." KK” DUP 
IF TEST8 THEN 
224; 
TESTS 


ON.ERROR posts a handler and jumps over it, TRY posts a handler and continues 
to execute. In either case the stack pointer is returned to the depth that it 
was when the error handler was identified. This technique is most often used 
to identify the last ditch error handler in a fault tolerant system. TRY may be 
used to restart the current program function in case of an unexpected error 
condition. 
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This stack frame approach allows you to specify your own ABORT” error 
handler at any level without disrupting a handler posted at a higher level. 
When the current definition completes, the posted handler is automatically 
replaced by the immediately higher level (if present). 


The list of stack frames is terminated by zero which, when RETRY points to it 
(the zero entry), indicates that the default error handler is to be used. 
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Memory Allocation 


Macintosh memory is partitioned into the five major areas shown in the 
Macintosh and MacFORTH Memory Maps that follow. The areas titled 
“Application Heap” and the stack are all that you need concern yourself with. 
The remaining areas support system functions normally outside the scope of 
applications programs. The applications heap area is a chunk of memory under 
the control of the toolbox memory manager. 


When writing MacFORTH programs, you control the amount of memory 
allocated to your current object and vocabulary data structures. When 
MacFORTH is loaded into memory from disc, it is placed by the toolbox 
memory manager at the base of the applications heap. The applications heap 
is just a pool of memory from which programs can request variable length 
chunks. 


The memory manager will attempt to satisfy your request by looking at all of 
the available pieces in the heap and if а big enough piece isn't available, it 
will reshuffle the heap until it can put together enough smaller chunks to 
Satisfy your request. You can also ask the memory manager to increase or 
decrease the size of an existing chunk of memory. 


After it is loaded, and the desktop window is initialized, MacFORTH asks the 
memory manager to allocate a chunk of memory to put programs and data in. 
Because the object area will contain executable code, it must be locked down 
іп memory, while its size may still grow and shrink. 


A default allocation of 8K of object space and 9.5K of FORTH vocabulary space 
is made. 


MacFORTH Level 2 provides an indepth discussion of heap collection and 
allows you to allocate your own relocatable heap data structures. 
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Vocabulary Data Structure 


MacFORTH supports vocabularies as a linked list of words located in a data 
structure allocated from the heap. (Refer to vocabulary Structure Diagram.) 


When a word is defined іп MacFORTH, the “head” of the definition, including 
the text for the name, and it's associated token is placed іп the current 
vocabulary, and the "body", including associated data or execution structures, 
is placead in the object image. 


A number of MacFORTH operators exist for manipulating the vocabulary and 
object area data structures. 


N VOCABULARY TEST 
Creates a new vocabulary called TEST. The initial allocation of space 
for TEST will be N bytes. 


APPEND . (tokenNstr.addr -- ) 
Appends the supplied token and string to the current vocabulary. 


TEST 
Sets TEST as the context vocabulary. 


TEST DEFINITIONS 
Sets TEST to the current vocabulary. 


N RESIZE. VOCAB 
Attempts to RESIZE the current vocabulary to N bytes. Error 
messages are reported if insufficient heap space 15 available or if М 
is too small to contain vocabulary. 


-LATEST 
Purges the latest vocabulary entry, returning space to the vocabulary. 


N BEHEAD 
Purges the name head for the token represented by 'N' from the 
vocabulary. 


AXE NAME 
BEHEADs the vocabulary entry for "МАМЕ. 
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FIND (-- token or O) 
Returns the applicable token value for the next word in the input 
stream. For example: 
FIND DUP 
returns the token for DUP . 


NFA (token -- name addr) 
Returns the address for the name of the vocabulary entry that 
corresponds with the supplied token. For example: 
FIND DUP NFA ID. 
will obtain the token DUP , convert it to it's Name Field Address, and 
then type out the Name. 
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Character Cursor Symbol 


When MacFORTH is waiting for text from the keyboard, a flashing cursor is 
displayed at the point where the text will be placed. The flash rate is set via 
the control panel. 


Any character font may be used as the cursor. The variable CURSOR.CHAR 
contains the font* in the first 16 bits and the character in the second 16 bits. 
For example: 

HEX БЕ CURSOR.CHRR ! DECIMAL 


sets the cursor to the default underline cursor. 
BL CURSOR.CHRR ! 


sets the cursor to blank (invisible) 
HEX 7С CURSOR.CHAR ! DECIMAL 


sets the cursor to a vertical bar (as in MacWrite) and 
HEX 070041 CURSOR.CHAR ! DECIMAL 


sets the cursor to character 41 (A) of font*7. 
Changing the cursor symbol is a good way of alerting the user when the 


system is in some special mode. Some of the different character cursors we 
have experimented with are listed below: 


Hex Value symbol 
11 hollow apple 
12 checkmark 
13 diamond 
14 dot 
15 solid apple 
C6 triangle 
BO infinity symbol 
BD omega 
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Cutting and Pasting Between Applications 


One of the more innovative features of the Macintosh is its ability to cut and 
paste between applications. This is done utilizing a facility known as the 
Desk Scrap. The Desk Scrap is maintained by the Toolbox Desk Manager. 
MacFORTH currently supports two types of scrap entries: TEXT and PICT. 


MacFORTH Level 1 supports cutting and pasting of text data between the text 
editor and the desk accessories, or other applications. This is built in to the 
editor and explained in the Program Editing chapter. Unless you need to 
handle text larger than fits on a block of source code, you don't need to 
concern yourself with the desk scrap. 


Accessing the Scrap 
The following words are available for accessing the desk scrap (refer to their 


definitions in the glossary for more information on each): 


SCRAP . LEN SCRAP . HANDLE SCRAP . COUNTER 
ZERO. SCRAP GET . SCRAP PUT. SCRAP 
UNLOAD . SCRAP LOAD. SCRAP "TEXT 

"PICT 


The text editor source code 15 a good example of accessing the desk scrap. 
Refer to the source code in the "Editor Blocks” file. 
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Macintosh Toolbox Interface 


This section documents the facilities to directly call routines in the 
Macintosh toolbox from high level MacFORTH. 


Pre-requisites 

The objective of this section is neither to document the contents of the 
Macintosh toolbox, nor explain the interworkings of Mac/Lisa Pascal. To gain 
insight into those areas you need to obtain a copy of “inside Macintosh.” 


As a minimum, you will need to read and understand the “Programming 
Macintosh Applications in Assembly Language” section of the manual. Add to 
this any parts of the toolbox that you want to access. 


Review of Pascal Data Types 
The following data types are used throughout: 


Boolean: 16-bit word with LS bit set in the high order byte to 
indicate true or false (true = 1) 

Byte: 16-bit word with byte in LS 8 bits 

Char: same as Byte 

Integer: 16-bit word 

Long integer: 32-bit word 

Pointer: 32-bit address 

Handle: 32-bit pointer to an address which contains a 32-bit 
pointer 


Toolbox Traps 
Macintosh toolbox traps occur in 3 areas: 


OS Traps: АП 05 traps uniformly expect an 1/0 buffer pointer іп AO and 
return an 1/0 result in DO. The MacFORTH defining word OS.TRAP creates а 
new word, which when later executed, pops the top item of the stack into AO, 
executes the trap, saves the result in the user variable IO-RESULT, and then 
executes NEXT. OS traps are defined in the following form: 


HEX 

8002 OS.TRAP READ ( buf ptr -- } 
8102 OS.TRAP ASYNC.READ ( buf ptr -- } 
DECIMAL 


and may be used in the form: 
1 »FCB READ ?FILE.ERROR 


(Refer to the File System chapter for details on each command.) 
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Pascal Procedures: Pascal procedures аге a little more complicated. There 
may be more than one argument passed and they may be of jumbled data types 
(16-bit values, including booleans, bytes, or words intermixed with 32-bit 
values). Fortunately, the majority of toolbox procedures either expect all 
32-bit items or only the last опе or two items are 16-bit values. 


Uniform 32-Bit Procedure Calls: Because MacFORTH works with 32-bit stack 
data, Pascal procedures which expect 32-bit arguments may be easily defined 
with MT. For example: 

HEX ASIS MT HIDE.WINDOW ( wptr -- ) DECIMAL 


When HIDE.WINDOW is executed, the trap A915 (hex) is executed with wptr 
on the stack. 


Note: When passing parameters to Pascal procedures, just leave them on the 
stack in the order described in the Apple documentation (left is deepest stack 
item). 


Procedure Call with 1 16-bit Item on the Top of the Stack: Enough of these 
exist to warrant a special operator.: 


HEX RO9C8 HMT SVSBEEP ( duration ) DECIMAL 


This operator works for all cases in which all arguments below the top of the 
stack (if any) are 32-bits. 


Procedure Call with 2 16-bit [tems on the Top of the Stack: Enough of these 
exist to warrant a special operator: 


HEX A893 2IDHT (LINE. TO) ( xXy -- ) DECIMAL 


Note: The trap values shown differ from those in the Apple documentation (ie. 
ADC8 for SysBeep, АС93 for LineTo, etc). The 11th bit set in the Apple 
documentaion is an artifact of a prior generation Pascal compiler. Don't ask 


why, just use the correct lower value. It's what the new compiler uses. 


Pascal Functions: Unfortunately, Pascal functions expect space reserved to 
return the result under any passed arguments. This means we have to pop off 
all of our arguments, push space into the stack for the returned result, and 
the push back the arguments. This is further complicated by the fact that the 
result may be either 16 or 32-bits in length. As you may have guessed, some 
of your favorite toolbox traps (like NEW. WINDOW which takes 9 parameters!) 
are function calls. 


MacFORTH provides toolbox trap defining words for the easy function calls. 
The harder ones you'll either have to include a zero in your argument list (to 
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reserve space for the result), or write in with the Level 2 MacFORTH 68000 
assembler. The following function traps are supported: 


ҒОМС>У/ returns a 16-bit result 

(ie: A861 FUNC>W RANDOM ) 
FUNOL returns a 32-bit result 
W»FUNCOL word parameter, long result 
L>FUNC>L long parameter, long result 


Complex Sound Generation 


MacFORTH provides access to the Macintosh OS sound driver. The sound driver 
provides three different sound synthesizers: 
- square wave synthesizer: produces a pre-programmed series of tones 
- four tone synthesizer: produces simple harmonic tones (with up to 4 
voices) 
- free form synthesizer: produces complex music and speech 


When the system is loaded, MacFORTH opens the device driver “SOUND” and 
assigns it to its own FCB called SOUND.FCB. The Getting Started chapter 
discusses how to generate simple tones via the sound driver. For more 
complex sounds, you will need to create your own waveform record. For 
instructions оп how to construct any desired free form or four-tone 
synthesizer record, refer to the in-depth discussion on sound generation in 
the Apple documentation. 


A MacFORTH sound record consists of a synthesizer record proceded by a 
16-bit word containing the length of the following synthesizer record. Two 
operators are available to play your synthesizer record: 


PLAY sound record address -- 
Plays the desired synthesizer record, hangs the cpu until it finishes. 


APLAY sound record address -- 
Asynchronously plays the desired synthesizer record. The processor 
continues execution and the sound is generated concurrently. 


Refer to the sourc code of the demos for examples of how to define you own 
music using the square wave synthesizer. 
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Chapter 12: MacFORTH Error Handling 


This section discusses the method MacFORTH uses to handle errors. The 
topics discussed in this section are: 


Topic Page 
Overview 2 
Compiler and Interpreter Errors 2 
File Errors and Processor Exceptions 4 
MacFORTH Default Error Message Summary 5 
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Overview 


By default, when MacFORTH encounters an error condition, an error message 
is displayed, the current operation is aborted, and control is returned to the 
system window. Error conditions occur in the following categories: 


Interpreter 
Compiler 
Utility 

File 
Processor 


You can override any default exception error handler. All of the messages in 
the preceding sections are listed in alphabetical order in the back of this 
section with accompanying text discussing the probable cause of the error 
and what action to take. 


The errors supplied by the Macintosh that are specific to file handling are 
listed in Appendix B of the File System chapter. 
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Compiler and Interpreter Errors 


Compiler and interpreter errors can be divided as follows: 


Interpreter Errors 
? 
BELOW FENCE ! 
STACK EMPTY 
MISSING STRING DELIMITER 
DECLARE VOCABULARY 
MISSING IFEND OR OTHERWISE 


Compiler Errors 
? 
COMPILATION ONLY, USE IN A DEFINITION 
CONDITIONALS NOT PAIRED 
DEFINITION INCOMPLETE 
DICTIONARY FULL 
EXECUTION ONLY 
MISSING STRING DELIMITER 
ATTEMPTED TO REDEFINE NULL 


Because these errors are more pertinent to the program development 
process rather than run time applications, they are defined with the word 
ERROR". An example of ERROR" is 


FENCE @ « ERROR" BELOW FENCE " 


If the value of the stack is non-zero, the console buzzer is sounded (if the 
QUIET option is ON), a carriage return is output followed by the most 
recently interpreted word and the errr ` message. If the error occurs while 
interpreting text from disc, the 5сгғ 21% and offset are placed in the user 
variables SCR and R* . When you enter the editor the cursor will 
positioned immediately after the error. 
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File Errors and Processor Exceptions 
File errors and processor exceptions are sub-divided as follows: 
File Errors 


MEDIA WRITE PROTECTED ! 
DRIVE NOT READY ! 

DISC SEEK ERROR ! 
INTERRUPTED 


Processor Exceptions 


ADDRESS ERROR TRAP AT XXXXXX 
BUS ERROR TRAP AT XXXXXX 
ILLEGAL INSTRUCTION TRAP ! 
OVERFLOW TRAP ! 

ZERO DIVIDE TRAP | 


These errors are defined with the word ABORT” . An example of ABORT" is 
MAX.BLOCK > ABORT” ILLEGAL BLOCK * " 


If the value on the top of the stack is non-zero, and no user supplied 
recovery stack frame has been established (discussed in next section), the 
default error handler outputs the message text and executes ABORT to 
return control to the console. While the default handler works well in the 
normal program development process, you will often choose to supply your 
own error handlers to recover from device errors and processor exceptions 
in actual applications. 
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MacFORTH Default Error Message Summary 


When a system error is encountered, the MacFORTH system stops and outputs 
an error message. АП system error messages and a discussion of their 
probable cause is provided below. 


File 1/0 errors are discussed separately in the File System 
chapter. 


Message Probable Cause 


? The text interpreter was unable to find <string> in the CONTEXT or 
TRUNK vocabularies and was unable to convert it to a number. 
Probably a typo or the word has not been loaded. 


ABORTED FROM KEYBOARD 
A keyboard abort event occurred. 


ADDRESS ERROR TRAP AT XXXXXXX 
An attempt was made to fetch or store a 16-bit or 32-bit value at 
odd address XXXXXXX. The 68000 hardware does not allow this. 
Either align the data structure on an even word boundary (using 
7ALIGN ) or use CMOVE. 


ATTEMPED TO REDEFINE NULL 

MacFORTH prevents the user from inadvertently redefining the end 
of line function (NULL) by typing : followed by a carriage return, 
as this would cause the system to respond to carriage returns in 
an unpredictable manner. If you truly wish to redefine the 
function of NULL , and understand fully the overall system impact, 
use the following: 

: X <your definition for null? ; 

HEX 8020 TOKEN.FOR X NFA И! 


BUS ERROR TRAP АТ XXXXXXX 
An attempt was made to access data at address XXXXXXX which is 
invalid. Neither memory nor hardware is capable of responding at 
the address. 


CANNOT CLOSE SYSTEM WINDOW ! 


While it is possible to hide the MacFORTH window, you cannot 
close it. 
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Message Probable Cause 


CANNOT LOAD BLOCK 0! 
Block 0 of each file is reserved for data or comments. You are 
unable to load it. Use a higher block number. 


COMPILATION ONLY USE IN A DEFINITION ! 
The offending word was encountered in execution state. The word 
is a compiler primitive and has no meaning when not compiling (ie: 
DO IF LOOP BEGIN). 


CONDITIONALS NOT PAIRED 
The text interpreter expects all conditionals to be properly nested. 
A terminating conditional (THEN , UNTIL , REPEAT , AGAIN, 
LOOP , +LOOP ) was encountered for which there was not a 
corresponding acceptable initializing conditional (IF, ELSE, DO , 
BEGIN, WHILE ) at the correct nesting level. 


DEFINITION INCOMPLETE ! 
The stack depth changed inside a colon definition. This is normally 
the result of an unpaired conditional (ie: a missing THEN). It may 
however, result from using a literal inside a definition to compile 
a literal value that was left on the stack prior to defining a word. 
In this case modify the user variable CSP to indicate the 
difference, ie: one item dropped from the stack requires 
[4 CSP +! ] 

Warning: Conditionals leave various information (address, 
conditional type) on the stack at run time. Be aware of this when 
placing literals inside colon definitions. 


DICTIONARY FULL ! 
Less than 260 (decimal) bytes exist in the object dictionary. If 
allowed to continue, scratch pad buffers above dictionary could 
overwrite the end of the object space. FORGET to free up 
dictionary space or resize the object area. 


EXECUTION ONLY ! 
The offending word may not occur while compiling. 


FILE ERROR * ___ 


Ап unidentified file error occurred. Refer to the File System 
chapter for identified file errors. 
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Message Probable Cause 


FILE NOT OPEN ! 
An attempt was made to access a file that was not open. Open the 
file and continue. 


FIXED RECORD LENGTH = 0! 
FORTH blocks are merely fixed length records within a file. In 
order to access them, the record length for the file must be 1024. 
You probably attempted to read a text file as blocks. 


ILLEGAL FILE NUMBER ! 
MacFORTH file numbers range between О and 9, any other value is 
illegal. Check the order of your operands. 


ILLEGAL INSTRUCTION TRAP! 
The 68000 attempted to execute an invalid (unrecognizable) 
instruction probably due to accidentally overwriting the 
dictionary. Try to locate erroneous code which overwrites 
dictionary. 


ILLEGAL RECOVERY ATTEMPTED ! 
An Attempt was made to recover from an error condition with no 
ON.ERROR recovery handler posted. 


ILLEGAL VOLUME ! 
The MacFORTH DIR command expects either a drive name (internal 
or external) or a volume reference number to produce a dírectory. 


WARNING: Disc full at block *. 
ADD.BLOCKS encountered an end of volume condition. Мо more 
space exists on the disk. АП available space ís allocated. 


ISN'T UNIQUE 
А word was created in the dictionary which is not unique in the 
CURRENT , CONTEXT , or TRUNK vocabularies and the UNIQUE.MSG 
switch is off. The most recent definition will be used for future 
references. The prior definition probably cannot be found. This 
warning message may be disabled when loading production code by: 
UNIQUE.MSG OFF 


MISSING ( STRING DELIMITER ! 
The input stream was exhausted (null encountered) before a 
delimiting right paren was found. See the MISSING STRING 
DELIMITER error message also. 
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Message Probable Cause 


MISSING ( STRING DELIMITER 
The input stream was exhausted (null encountered) before a 
delimiting right brace was found. See the MISSING STRING 
DELIMITER error message also. 


MISSING IFEND OR OTHERWISE 
MacFORTH does not allow IFTRUE .. OTHERWISE... IFEND... or 
IFTRUE...IFEND conditional compilation sequences to cross either 
input line or block boundaries. Reorganize your text to start and 
end such sequences on the same source block or input line. 


MISSING STRING DELIMITER 
The input stream was exhausted (null encountered) before the 
required delimiter was found. Delimited strings may not cross 
block or terminal input line boundaries. Insert trailing delimiter 
in source text. 


NO ЕСВ'5 AVAILABLE 
All FCB's were in use when the NEXT.FCB command was executed. 


NOT A BLOCKS FILE! 
Ап attempt was made to select a non-blocks file as the current 
blocks file for editing. 


NOT ENOUGH STACK ITEMS ! 
Insufficient stack items where placed on the stack before 
executing the most recently entered word. MacFORTH selectively 
contains a few operators which provide this check. In applications 
code use: 
X NEEDED 
Where X is the number of items required to properly execute. 


OBJECT DICTIONARY FULL ! 
Object dictionary space is full. Use ROOM and RESIZE.OBJECT to 
allocate more object space from the heap. 


OBJECT WON'T FIT! 
An attempt was made to resize the object dictionary into a 
memory segment which is too small. 


OVERFLOW TRAP | 
Default handler for exception caused by TRAPV instruction - see 
Motorola documentation. 
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Message Probable Cause 


RANGE TRAP ! 
User assembly code generated a range TRAP from a CHK, 
instruction. See MacFORTH Level 2 Assembler documentation. 


STACK EMPTY ! 

Text interpreter found the stack pointer greater than the top of 
the stack. An attempt was made to access nonexistent stack data. 
NOTE: There is no run-time check made by the address interpreter. 
When executing code underflows the stack, the contents of the 
text input buffer and eventually the return stack are unpredictable. 
A buffer zone of 2 bytes is reserved for minor underflow 
occurrences. 


SOUND ERROR! 
The sound generation driver reported an error to MacFORTH. 


UNABLE TO RESIZE OBJECT ! 
The memory manager was unable to increase the size of the object 
space due to the placement of a fixed/locked memory segment 
immediately behind it. Refer to the Advanced Topics chapter for a 
discussion of memory allocation and resizing. 


UNABLE TO RESIZE VOCABULARY ! 
The memory manager was unable to increase the size of the 
vocabulary space due to the placement of a fixed/locked memory 
segment immediately behind it. Refer to the Advanced Topics 
chapter for a discussion of memory allocation and resizing. 


VOCABULARY FULL ! 
The current vocabulary is full. Use RESIZE. VOCAB to allocate more 
vocabulary space. ROOM displays current allocation. Refer to the 
Advanced Topics chapter for more information on memory 
allocation. 


VOCABULARY WON'T FIT! 
An attempt was made to resize the vocabulary into a memory 
segment which is too small. 


ZERO DIVIDE TRAP ! 
The 68000 attempted to divide by zero in hardware. 
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MacFORTH Glossary 


This section presents the MacFORTH glossary. It is divided into three 


parts: 


1) An index in sorted ASCII order with page number reference. 
Useful for finding a particular word quickly. 


2) Ап index by function with page number reference. Useful for 
finding a word in a particular class. 


3) The definitions themselves in sorted ASCII order. 


The authors have put an enormous amount of work into this glossary. 
Users who want to get the most out of MacFORTH should read through it at 
least once to get an idea of the wide range of capabilities that are 


available. 


Glossary Key 


The following symbols are used in the glossary to indicate the contents of 
the parameter stack before and after execution of the particular word: 


symbol 


$ 


addr 


bool 


char 


MacFORTH Glossary 


Meaning 


Prefix used to indicate a string field 
operation. By itself, it indicates a 
string address. As a prefix to cnt 
($cnt) it indicates a string field 
count. 


А memory address. А number suffix is 
used to differentiate between 
addresses. 


A boolean flag. A value of zero 
indicates a false flag; non-zero 
indicates true. MacFORTH words which 
return pure boolean results use -1 as 
a true flag ( all bits set). 


Ап 8-bit character value. 


Page 13- 1 June 3, 1984 


symbol Meaning 


cnt 


dest 


false 


flag 


n or un 


sre 


wptr 


MacFORTH Glossary 


A count value. Usually used with an 
addr symbol to designate the start- 
ing address and count for an array of 
string value. Also used to designate 
the width of a field. 


Refers to a destination address. 


A boolean false flag (0). 


A special flag value. The specific 
meanings for different flag values are 
discussed in the text of the defin- 
itions for the word which uses the 
flag. 


A 32-bit integer. A number suffix is 
used to differentiate between num- 
bers. The prefix u indicates the 
number is unsigned. 


Refers to a source address. 


A boolean true flag (- 1). 


A 16-bit integer. A number suffix is 
used to differentiate between num- 
bers. 


Starting address of a window table. 
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symbol Meaning 
\ 


[..J or L...] 


Delimits items on the stack. It is pro- 
nounced "under". For example, 

ni\n2 -- addr 
is read "n1 under n2 leaves addr” . 


Indicates different possible stack 
outcomes. For example, the word ?DUP 
duplicates the top item on the stack 
if it is non-zero. It's stack notation is 
n -- [n\n] or [n] 

Indicating an integer is expected 
on the stack and leaving either two 
items ( n under n) or the original 
integer itself. 


іп some of the definitions, we have used a more mnemonic name for a 
parameter instead of a standard symbol for clarity. For example, "index" is 
used to indicate an index value, "sect" is used to indicate a sector on a 
disk, "bIK*" refers to a block number, and so on. 


Always refer to the text of the definition for a more complete explanation 


of the required parameters. 


А Few Notes on the Glossary: 


Most FORTH glossaries are noted for their small size (typically less than 
250 items). The MacFORTH glossary contains about 900 entries. This is 
due to the extensive access to the Macintosh toolbox provided by 
MacFORTH. Normally, the MacFORTH kernel 15 about 250-500 words. 


MacFORTH Glossary 
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! n\addr -- 
Store п at addr. “store” 
The error message “ADDRESS ERROR TRAP AT addr” indicates addr is 
odd (addr is displayed as a hexadecimal value) Refer to the Error 
Handling chapter for a further explanation. 


ICSP --- 
Save the current stack position in the User Variable CSP . This is used 
as part of the compiler security to ensure the stack does not change 
during compilation of a word. "store-c-s-p" 


IPENSTATE — 20bytes -- 
Restores the prior penstate from the stack. See ePENSTATE . "store 
pen state" 


IPOINT x\y\addr -- 
Packs the 16-bit values x and y into a 32-bit integer and stores the 
value at addr. 


IRECT top\left\bottom\right\addr -- 
Packs the rectangle coordinates on the stack into 4 16-bit values and 
stores them at addr. Packed rectangle contains 4 16-bit elements in 
top-left-bottom-right sequence. “store rect” 


ISR n-- 
Directly stores the least significant 16 bits of n into the 68000 
hardware status register. The supervisor and trace modes, interrupt 
level, and condition codes are affected. "store-s-r" 


Е -- addr 
Compiles a string delimited by " , leaving its address when the word 
is later executed. Used during compilation in the form: ” «string 


literal?" to compile ($LIT) followed by «string literal» with its count 
in the first position. When later executed, ($LIT) places the address 
of «string literal» on the stack, advancing the instruction pointer to 
the word following the string literal. See $LIT , ($LIT) , ." , ," "quote" 


"BLKS --n 


32-bit constant containing the 4 character ASCII string “BLKS" . Used 
to designate the blocks file type. "quote B-L-K-5 " 
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"DATA --п 
32-bit constant containing the 4 character ACSII string “DATA” . Used 
as а file or resource type. “quote DATA " 


“PICT --n 
32-bit constant containing the 4 character ASCII string "РІСТ". Used 
to designate a picture file or resource types. "quote P-1-C-T " 


"TEXT --п 
32-bit constant containing the 4 character ASCI! string "TEXT" . Used 
to designate text files or resource types. "quote TEXT " 


"M4TH --п 
Constant MacFORTH File creator id code. Placed in the creator field of 
all files created by MacFORTH. “qoute M-4th" 


# nt -- n2 
Uses пі to generate the next ASCII character for numeric output, 
leaving n2 as п1/ВАЅЕ. The result n2 is maintained for further 
processing. Unchecked error if not used between «* and *>. See «* 
and *» . "sharp" 


#› п-- addr\cnt 
End pictured numeric output conversion. Drop п from the stack and 
leave the address and count of the text string created during numeric 
conversion. "sharp-greater" 


*FILES Esq 
Constant specifing the maximum number of files that can be opened at 
once. 

#FIND -1\voc addr 1\...\voc addr п -- [token\ien\true] or [false] 


Search the -1 terminated vocabulary list for the word in input 
stream. If the word is not found during the search, leave a false flag. 
If the word is found, leave its token, length byte and a true flag. voc 
addr is the handle of the vocabulary token "hash-find" 


#5 un -- 0 
Converts all digits of unsigned un. Each is added to the pictured 
numeric output string until the remainder 15 zero. A single zero is 
added to the output string if un was initially zero. "sharp-s" 
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$ADDR -- addr 


Skips over following in-line string literal, leaving address on stack. 
"string address" 


$LIT -- addr\cnt 
Executes (ІТ). Necessary to match nesting level (return stack 
depth) for other inline string literal operators such as (ABORT") and 
(ERROR") which also use ($LIT) . See ($LIT) . "string-lit" 


=~ pfa 

Used in the form: — ' «name» to get the pfa of «name». If executing, 
leave the pfa of the next word in the input stream. If compiling, 
compile this pfa as a literal; later execution will place it on the 
Stack. Issue an error message if the word is not found after a search 
of the CONTEXT and then the CURRENT vocabularies. Within a colon 
definition ‘<name> isidenticalto [' «name» ] LITERAL . Error 
if the following word is not found in the dictionary. The system will 
print the name followed by a question mark. "tick" 


"INTERPRET --- 
Begin interpretation of the input stream pointed to by »IN and BLK. If 
BLK is non-zero, »IN points to the character within the block pointed 
to by BLK. If BLK is zero, the input stream is taken from the 
Terminal Input Buffer. See >IN , BLK , TIB . "tick- interpret" 


( EE. 

Accepts and ignores comment characters from the input stream until 
the next right parenthesis. Used іп the form: (ccc) or (ccc) The 
left parenthesis must be followed by at least one space (as with all 
FORTH words). It may be used freely while compiling or executing. 
The error message MISSING( STRING DELIMITER ! indicates the input 
stream has been exhausted before the delimiting right parenthesis 
was encountered. "paren" 

The delimiter (right parenthesis) is pronounced: "close-paren" 


(ON.ACTIVATE) -- 
Runtime word for ION.ACTIVATE . Use ION.ACTIVATE . 


(ION.UPDATE) -- 
Runtime word for ION.UPDATE . Use ION.UPDATE . 
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($LIT) -- addr 
Fetches the inline string literal address from the return stack, 
leaving the string address on the stack. The value on the return stack 
(the instruction pointer) is incremented to point just past the string, 
so when ($LIT) executes EXIT , execution will continue beyond the 
string literal. “paren-string-lit” 


((ABORT)) -- 
Default version of ABORT (initially placed in (ABORT) ). Empties the 
data stack, RELEASEs the disk, sets BASE to DECIMAL, copies TRUNK 
to CONTEXT and CURRENT, and finally QUITs, which aborts execution 
and returns control to the console. "paren-paren-abort" 


((ERROR))  addr\cnt -- 

Default error handler (initially placed in (ERROR) ). If QUIET is 
disabled, sounds the console's buzzer, outputs a CR LF and the most 
recently interpreted word (from POCKET ) followed by the string at 
the addr and cnt given. The data stack is cleared. If BLK is non-zero 
(compiling from disc) , SCR is set to BLK , and В is set to 21М, so 
that entry into the editor will point to the location of the error. 
Finally, QUIT is executed, aborting the current task and returning 
contro] to the console. See (ERROR) , POCKET , BLK , >IN , WHERE . 
"paren-paren-error" 


(*LOOP) n-- | 
The run-time procedure compiled by +LOOP. It increments the loop 
index by n and tests for loop completion. See +LOOP 
“paren-plus- loop" 


(") — 
The run-time procedure compiled by ." . It transmits the following 
in-line text string to the selected output device. See .” 
"paren-dot-quote" 

(5) a 


Non-destructive stack display primitive. No CR before execution. 
Displays the contents of the stack using the following format: 

[d] c\b\a 
where d is the stack depth, and ab and с are the top three stack 
Items. If dis less than 3, only the stack items present are displayed. 
"paren-dot-s" 


MacFORTH Glossary Page 13-7 June 3, 1984 


{{СОРЕе@) -- 
Stores the supplied cfa into the cfa of the latest word. The supplied 
Cfa is pointed to by the value on the return stack. 


(>CODE) KS 
Jumps to the address contained in the IP. Compiled by »CODE . 


(ABORT")  fiag-- 
Primitive routine compiled by ABORT" which precedes the in- line 
string literal. When executed, if flag is true, the string is typed to 
the console and executes ABORT . If flag is false, flag is dropped 
from the stack and execution resumes at the word following the 
string literal. "paren-abort-quote" 


(ABORT) --addr 


User variable containing the cfa to be executed by ABORT . This 
allows each task to have its own version of ABORT . "paren-abort" 


(DO) п1\п2 -- 


The run-time procedure compiled by DO , which moves the loop contro] 
parameters to the return stack. See DO. “paren-do" 


(ERROR") пад –- 
Compiled by ERROR" prior to an inline error message string. When 
executed, if flag is true, the most recently executed word (in POCKET 
) is displayed, followed by the inline error message string. If flag is 
false, flag is dropped from the data stack and execution continues 
beyond the string See $LIT , ($LIT) , ERROR" , ABORT” 
"paren-error-quote" 


(ERROR)  -- addr 
User variable containing the address of the word to be executed when 
an error is detected by the text interpreter. "paren-error" 
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(ЕХСРТ) зе 

Code definition which copies the contents of the 68000 registers to 
the array REG.SET . The first 16 bytes on the return stack (hardware 
stack pointer) are also moved. This routine is called by all of the 
processor and unimplemented instruction handlers during exception 
processing before they execute ABORT , providing a snapshot of the 
registers and the supervisor stack when the exception occured. The 
loadable utility .REGS ( MacFORTH Level 2) will give you a formatted 
dump of this information. Use the Motorola Processor Exeception 
Documentation to interpret the supervisor stack contents. 
"paren-except" 


(FIND) addr oc handle -- [token\prec flag\true] or [false] 
Searches the vocabulary for a match with the name found at addr. If a 
match is found, the token and precedence flag for the word are 
returned under a true flag, else a false flag is returned. "paren-find" 


(GET) addr -- 
Multitasking stub for source compatibility with future CSI MacFORTH 
products. 


(GET FILE) п1\п2\пЗ\п4\л5\ -- 
Standard file hook for uniform access to standard file package in 
MacFORTH Level 2. Unsupported in Level 1. "paren GET.FILE " 


(LINE) XN -- 
QuickDraw line primitive. X and Y in local window native QuickDraw 
coordinates, unaffected by XYSCALE, XYPIVOT, or XYORIGIN. “paren 
line" 


(ИМЕ ТО) хү-- 
QuickDraw relative line drawing primitive. X апа Ү in local window 
native QuickDraw coordinates, unaffected by XYSCALE, XYPIVOT, or 
XYORIGIN. “paren line-to” 


(LOOP) ess 


The run-time procedure compiled by LOOP which increments the loop 
index and tests for loop completion. See LOOP . "paren-loop" 


(MENU.SELECTION:) -- 
Run time code for MENU.SELECTION: retained for clarity during tracing. 
"paren menu selection" 
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(MOVE) . xw-- 
QuickDraw line drawing primitive. X and Y in local window native 


QuickDraw coordinates, unaffected by XYSCALE, XYPI VOT, or XYORIGIN. 
"paren move" 


(MOVE.TO) хү-- 
QuickDraw line drawing primitive. X and Y in local window native 
QuickDraw coordinates, unaffected by XYSCALE, ХҮРІУОТ, or XYORIGIN. 
"paren move-to" 


(OF) п1\п2 -- [nt] or (J 
Run-time code compiled by ОҒ. See ОҒ. 


(ON.ERROR) -- 
Pushes the recovery stack frame into the return stack. It then 
branches over the error recovery code. 


(PENSIZE) = w/n -- 
Sets PENSIZE regardless of XY scale. “paren pen size" 


(PUT.FILE)  niNn2W3Nn4 -- 
Standard file hook for uniform access to the standard file package in 
MacFORTH Level 2. Unsupported in Level 1. “paren PUT.FILE" 


(R/W) -- addr 
User Variable containing the address of the word which obtains a 
requested block from the disc. "paren-r-slash-w" 


(TEXTSIZE) size -- 


Sets physical text size regardless of Y scaling. "paren textsize" 


(TRACE)  —- 

Routine which executes the trace function of the compiler. Compiled 
by the interpreter before every token if the TRACE option switch 15 
on. When the later executed, if the DEBUG option switch is on, output 
is tabbed to column 16, the stack is displayed (using CS) ). A CRLF is 
output, and the name field of the following inline token is displayed. 
If the DEBUG option switch is off, no output is generated. See TRACE , 
DEBUG. “paren trace” 
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(TRACK.CONTROL) ni\n2\n3 -- flag 


MacFORTH Level 2 controls primitive. Refer to the Level 2 
documentation. 


(WORD) char\addr -- addr 


Moves the string delimited by char from the input stream to addr. 
"paren-word" 


JCONSTANT ador -- 


JU 


M 


Creates relocatable constant. When created, NEXT.PTR is subtracted 
from the stored 32 bit value. When the constant is later used, the 
saved value is summed with NEXT.PTR to produce the actua! physical 
address. 


addr -- n 
Converts the user area address given to the offset from the base of 
the user area. It is simply defined as :)U STATUS- ; It is used 
to access another task's user area or the bootup literal area. 
"close-paren-u" 


nl M2 -- n3 
Leaves the product of (n1*n2). Error if the product is greater than 31 
bits plus sign. System response is to truncate the product to 32 bits 
with no error message. "times" 


п1\п2\п3 -- n4 
Leaves the result of the product n1 times n2 divided by n3. The result 
n4 is rounded toward zero. The intermediate product (n1*n2), is 
maintained as а 64-bit value for greater precision than the otherwise 
equivalent sequence ni n2* n3/ 
Error if division by zero, or quotient overflows, with NO system 
check. "times-divide" 


* /MOD ni\n2\n3 -- n4\n5 


Multiply n1 by n2, divide the result by n3, leaving the remainder n4 
and quotient n5. A 64-bit intermediate product is used (as for */ ). 
The remainder has the same sign as n1. Error if division by zero, or 
quotient overflows with NO system check. “times-divide-mod” 


ni\n2 -- n3 
Add ni to n2 and leave the result n3. Error if sum overflows resulting 
in 32-bit truncated unnormalized sum with no system check. "plus" 
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+i n\addr -- 
Add n to the 32-bit value at addr according to the convention for +. 
Error if the sum overflows with no system check (see + ). The error 
message ADDRESS ERROR TRAP indicates addr is odd (see ! ). 
"plus-store" 


*CARTESIAN — wptr -- addr 
Returns the address of a variable window record whose contents 
determine whether point coordinates for the window are to be 
interpreted in native QuickDraw or cartesian coordinates. When the 
variable is TRUE, all coordinates are expressed іп Cartesian 
coordinates. "plus Cartesian" 


*FIND -- {token\flag\true] or [false] 
Searches the dictionary for a match on the next word in the input 
stream. The next word in the input stream is extracted using WORD 
and placed in POCKET . If the word is found in the CONTEXT , CURRENT 
, or TRUNK vocabularies, the token for the word, its precedence flag 
and true flag are returned. The precedence flag is true if the word is 
an immediate word and should be executed when compiling (ie. DO , IF 
,. ). If the word is not found, a false flag is returned. See IMMEDIATE 
, CREATE , WORD , POCKET . "plus-find" 


*FOLLOWER nl -- ni *FOLLOWER 
Returns the sum of n1 plus the offset to the user variable FOLLOWER 
from the base of the user area. 


*HBAR wptr -- wptr*offset 
Returns the address of a variable within a window record which 
contains the handle for a horizontal scroll bar control which is 
attached to the window. Refer to Level 2 controls documentation for 
further information. 


*LOAD relative scr* -- 
Loads the screen number given relative to the current screen being 
loaded. For example, the sequence 10 *LOAD 
encountered while loading screen 100 would cause screen 110 to be 
loaded. "plus-load" 
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+ ООР n-- 

Add the signed increment n to the loop index using the convention for 
* апа compare the total to the limit. Return execution to the 
corresponding DO until the new index is equal to or greater then the 
limit (for п>0), or until the new index fs less than the limit (for n«O). 
Upon exit from the loop, discard the loop control parameters from the 
return stack and pass contro! to the word following +LOOP. The error 
message ^ CONDITIONALS NOT PAIRED indicates the +LOOP was not 
matched with a DO. See DO. "plus-loop" 


*MAXBLK? — fcb -- addr 
Returns the address within the fcb of the maximum variable 
containing the block number for the file. 


*ON.ACTIVATE wptr -- addr 


Returns the address of a variable within the window record which 
contains the token to be executed when the window is activated. 


*ON.UPDATE = wptr -- addr 
Returns the address of a variable within the window record which 
contains the token to be executed when the window is updated. 


+POINT X1\Y1\X2\Y2 -- X1+X2\Y1+Y2 
Adds two points. 


*PRINTER  addr\cnt -- 
Prints the contents of the string at addr for cnt bytes to the printer 
if the variable PRINTER is on, then to the display. "plus-printer" 


+REC SIZE гс -- addr 
Returns the address within the fcb of the variable which contains the 
record size field for the file. 


*SCR£ fcb -- addr 
Returns the address within the fcb of the variable which contains the 
current screen number for the file. 


*THRU relative start relative end -- 
Load screens start through end relative to the current screen. For 
example, the sequence 
5 15 *THRU 
encountered while loading screen 10 would cause screens 15 through 
25 to be loaded. "plus-thru" 
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+TVISRECT  text.record -- addr 
Returns the address of the visible rectangle within the text edit 


record. Refer to level 2 TEEDIT interface documentation for further 
details. 


+VBAR wptr -- addr 
Returns the address of a variable within the window record which 
contains the handle for a vertical scroll bar control which is attached 


to the window. Refer to Level 2 controls documentation for further 
information. 


*W ATTRIBUTES wptr -- addr 

Returns the address of the 16-bit variable within the window record 
which contains the window attributes to be assigned when the 
window is created: 

bitO CLOSE.BOX 

bit! Not visible 

bit2 SIZE.BOX 

bit3 SCROLL.UP/DOWN 

bit4 SCROLL.LEFT/RIGHT 

bitS TEXT.RECORD 

bits6- 15 Reserved 


*W.BEHIND у/ріг-- addr 
Returns the address of a variable within the window record which 
contains the wptr to place the new window behind when it is created. 
0 places it up front, -i places it at back. 


+W_LINK wptr -- addr 
Returns the address of a variable within the window record which 
contains the address of the prior chronologically defined window. 
This linked list is traversed, during FORGET, to close any windows 
which are about to be forgotten. 


*W.TYPE wptr -- addr 
Returns the address of a 16-bit variable within the window record 
which contains the window type. Type O is a document window. 
Others include dialog. with/without shadow, etc. 


*WBOUNDS . wptr --addr 
Returns the address within the window record of a rectangle to be 
used as the window bounds when the window is created. 
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+WCBOUNDS  wotr -- addr 
Returns the address within the window record of the current content 
area rectangle for the window. This rectangle is kept current when 
the window is resized, and reflects the presence or absence of scroll 
bars. 


*WFILEPTR  wptr -- addr 
Returns the address within the window record of a variable which 
contains the file number of file which is associated with the 
specified window. 


*WLINE.HEIGHT wotr -- addr 
Returns the address within the window record of a variable which 
contains the current LINE.HEIGHT . Windows are scrolled line.height 
bits up at the end of the screen. 


+WREFCON wptr -- addr 
Returns the address within the window record of a variable which 
contains the window reference constant. This field normally contains 
the address of the handle for the current TE edit record. 


*W TITLE wptr -- addr 
Returns the address within the window record of a variable which 
contains the address of a string to be used as the window title. 
Executed when the window is created with ADD. WINDOW . 


+XYBIAS wptr -- addr 
Returns the address within the window record of a 32-bit variable 
which contains the integer 16-bit sine and cosine of the current 
XYPIVOT angle. 


+XYOFFSET — wptr -- addr 
Returns the address within the window record of a 32-bit variable 
which contains the Y and X offset which is applied to all coordinates 
relating to the window. 


*XYPIVOT wptr -- addr 


Returns the address within the window record of a 16-bit variable 
which contains the angle of rotation to be applied to all coordinates 
relating to the window. 
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+XYPOS wptr -- addr 


Returns the address within the window record of a 32-bit variable 
containing the current XY position. This is used for all relative 
coordinates. 


*XYSCALE — wptr -- addr 


г 


Returns the address within the window record of a variable which 
contains the current XYSCALE to be applied to all window coordinates. 


n am — 
Allot 4 bytes in the dictionary, storing n there. An error is reported if 
insufficient object space is available. "сотта" 


Compiles a string literal into the dictionary. Extracts the following 
string, terminated by " (double quote), from the input stream and 
emplaces it into the dictionary preceded by its count byte. For 
example: 

CREATE TEST.STRING ," THIS 15 A TEST” TEST.STRING COUNT ТҮРЕ 
will output 

THIS IS A TEST 

This operator is generally used to emplace string literals into the 
dictionary for words like ." , ABORT" , ERROR" , etc. "comma-quote" 


ni\n2 -- n3 
Subtract n2 from n! and leave the difference n3. Error if the 
difference overflows. Returns a 32-bit value similar to that of the 
case of overflow from addition with no system check. See * . "minus" 


Continue interpretation on the next sequential block. May be used in a 
colon or code definition that crosses a block boundary. "next-block" 


---1 


Constant containing the value - 1. 


nci 
Constant containing the value -2. 


RATES 
Constant containing the value -3. 
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-4 =- -4 
Constant containing the value -4. 


-FIND -- [token\flag\true] or [false] 
Searches the dictionary for a match on the next word in the input 
stream. Extracts the next word in the input stream (via WORD), 
placing it in POCKET . If the word is found іп the CONTEXT or TRUNK 
vocabularies, the token for the word, its precedence flag, and a true 
flag are returned. The precedence flag is true if the word is 
immediate and should be executed when compiling (ie. DO , IF , .” ). If 
the word is not found, a false flag is returned. 
See IMMEDIATE , INTERPRET . 
"dash-f ind" 


-FOUND token -- 


Reports an error " ?" if token is zero. 


-KEYBOARD --n 
Constant mask which allows all but keyboard events to 
be received. This value is ended with the contents of EVENTS if a 
Keystroke already exists prior to execution of DO.EVENTS allowing 
type-ahead. 
"minus-keyboard" 


-LATEST -- 
Removes latest token, name, and object space from current 
dictionary. It ignores smudge bit. 
"minus-latest" 


-POINT х1\у1\х2\у2 -- х1-х2\у1-у2 
Subtracts two points. See +POINT . 


-ТЕХТ аййг1\спї\айаг2 -- flag 
Compares the two strings at addri and addr2 for cnt bytes. The flag 
returned is zero if the strings are equivalent, otherwise the flag 
equals the difference between the last two characters compared, as 
follows:  addri(i) - addr2(i) 
"dash-text" 
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-TRAILING аааг\спї1 -- addr\cnt2 
Strips trailing blanks from the string at addr. Adjust the character 
count cnt! of a text string beginning at addr to omit trailing blanks 
(le. the characters from addr*cnt! to addr*cnt2 are blanks). Error if 
сп is negative with no system check. 
"minus-trailing" 


n — — 
Displays n. n is converted according to BASE in a free format field 
with one trailing blank. Displays a negative sign if n is negative. “dot” 


Outputs a string of text delimited by " . Executed or compiled in the 
form 

.” аааааааа" 

Accept the following text from the input stream, terminated бу” 
(double-quote). If executing, transmit this text to the selected 
output device. If compiling, compile so that later execution will 
transmit the text to the output device. Up to 255 characters are 
allowed in the text. The error message MISSING STRING DELIMITER 
indicates the input stream was exhausted before the delimiting 
double quote was encountered. "dot-quote" 

The double quote delimiter is pronounced "quote" 


.ABORT п-- 
Prints the number n in hexadecimal, and aborts. 


DATES  --- 
Displays the current date from the internal clock in the following 
format: MM/DD/YY 


FILE.ERROR error number -- 
See the File System Glossary. 


R n\width -- 
Displays n right-justified. The field is width characters wide, and n 
is displayed according to BASE. If width is less than 1, no leading 
blanks are supplied. "dot-r" 
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5 --- 
Non-destructively displays the contents of the stack. The number of 
items on the stack is first displayed, enclosed in brackets, followed 
by the top three stack items (the top stack item is furthest to the 
right) after a carriage return. For example, if you enter 
123 5 
you will see 
[S]ININ2\3 
If you then add another stack item (say 4 for example), you will see 
{[4]\2\3\4"dot-s" 


.ТІМЕ% “те 
Displays the current time as read from the internal clock in the 
following format: HH:MM:SS XM 


.ТҮРЕ addr\cnt -- 
Default Macintosh console output operator. Scrolls up at bottom of 
screen. 


/ ni\n2 -- n3 
Divide n1 by n2, leaving the quotient n3. n3 is rounded toward zero 
(truncated). Error on division by zero with no system check. "divide" 


/MOD n1\n2 -- remainder Nquotient 
Divide пі by n2 and leave the remainder under the quotient. The 
remainder has the same sign as n1. Error on division by zero with no 
System check. "divide-mod" 


0 sep 
Constant containing the value O. 


0‹ n -- flag 
The flag is true if n is less than zero (negative). "zero-less" 


0- n -- flag 
The flag is true if n is equal to zero. "zero-equals" 


0» n -- flag 
The flag is true if n is greater than zero. "zero-greater" 
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OBRANCH riag-- 
The run-time procedure used for conditional branching. ІТ flag is 
false (zero), the following in-line parameter is added to the 
Interpreter pointer to branch ahead ог back. Compiled by IF , UNTIL, 
and WHILE . "zero-branch" 


OMAX n -- [n] or [0] 


Code routine which returns the maximum of n or O. "zero-max" 


1 == 

Constant containing the value 1. 
1+ n-- n+l 

Increments the top stack item by one. 
1- n--n-1 

Decrements the top stack item by one. 
10+ n--n+10 

increments the top stack item by ten. 
10- n--n-10 

Decrements the top stack item by ten. 
12HOUR5 --n 

Constant returning the number of seconds in 12 hours. 
16* n-- n*16 

Multiplies the top stack item by sixteen. 
16* n -- n*16 

Increments the top stack item by sixteen. 
16- n--n-16 

Decrements the top stack item by sixteen. 
16/ n--n/16 

Divides the top stack item by sixteen. 
1DAY EX 


Constant returning the number of seconds іп one day. 
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1HOUR -- П 
Constant returning the number of seconds in one hour. 


2 --2 
Constant containing the value 2. 


21 п1\п2\айаг -- 
Stores n2 at addr, n1 at addr+4. 


2* n -- n*2 
Multiplies the top stack item by 2. 


2* n--n*2 
Increments the top stack item by 2. 


2- п--п-2 
Decrements the top stack item by 2. 


2/ n--n/2 
Divides the top stack item by 2. 


20 addr -- ni\n2 
Fetches n2 from addr, пі from addr+4. 


2DROP ni\n2 -- 
Drops nl and n2 from the stack. 


2DUD ni\n2 -- п1\п2\п1\п2 
Duplicates пі and г2. 


20VER п1\п2\пЗ\п4 -- ni \n2\n3\n4\ni\n2 
Copies n1 and n2 to the top of the stack. 


25WAP ni\n2\n3\n4 -- п3\п4\п1\п2 
Swaps п1,п2 with n3,n4. 


2W»MT ni -- 
Macintosh Tooltrap interface word. See Advanced Topics toolbox 
interface section. 


5 sug 
Constant containing the value 3. 
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5% n--n*3 
Increments the top of the stack by three. 


= п--п-3 
Decrements the top of the stack by three. 


4 -- 4 
Constant containing the value 4. 


4* n -- n*4 
Multiplies the top of the stack by four. 


4+ п -- п+4 
Increments the top stack item by 4. 


4- n--n-4 
Decrements the top stack item by 4. 


4/ n--n/4 
Divides the top stack item by 4. 


5+ n--n*5 
Increments the top stack item by 5. 


5- n--n-5 
Decrements the top stack item by 5. 


6+ n-- n+6 
Increments the top stack item by 6. 


6- n--n-6 
Decrements the top stack item by 6. 


it п -- п+7 
Increments the top stack item by 7. 


1- n -- n-7 
Decrements the top stack item by 7. 


8% n-- n*8 
Multiplies the top stack item by 8. 


MacFORTH Glossary Page 13 - 22 June 3, 1984 


8+ 


8/ 


<# 


n--n*8 
Increments the top stack item by 8. 


л--п-8 
Decrements the top stack item by 8. 


n--n/8 
Divides the top stack item by 8. 


Begins compilation of a new definition. A defining word used in the 
form: 

: «name» ...; 

Set CONTEXT to CURRENT and create a dictionary entry for <name> іп 
the CURRENT vocabulary. Words thus defined are 'colon definitions' 
and the compilation address of subsequent words from the input 
stream which are not immediate are compiled into the dictionary to 
be later executed when «name» is executed. IMMEDIATE words are 
executed as encountered. Words encountered that are not found in the 
dictionary (CONTEXT and TRUNK vocabularies) cause compilation to 
stop with a question mark printed after the offending word. The 
warning message: 

ISN'T UNIQUE 

indicates that a previous definition for «name» exists. "colon" 


Terminate a colon definition and stop compilation. The error message 
DEFINITION INCOMPLETE indicates the stack depth changed within the 
current colon definition. "semicolon" 


ni M2 -- flag 
Returns a true flag if n1 is less than n2. "less-than" 


Initialize pictured numeric output. The following group of words are 
used to convert a number to its ASCII string equivalent: 

‹# #> # #5 HOLD SIGN 

"less-sharp" 
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«we addr -- n 
Fetches the 16-bit contents at addr and sign extends it to 32 bits. 
An address error trap will result if add is odd. Use «We» for odd or 
even addresses. 
"extended-word-fetch" 


ni\n2 -- flag 
Returns a true flag if nl is equal to n2. "equals" 


=CELLS ni --n2 
Ensures n1 is even by adding one to it if it is odd. "equals-cells" 


=DROP ni\n2 -- [п1\п2] or [n1] 
Drops n2 if nl=n2. "equals-drop' 


› ni\n2 -- flag 

Returns a true flag if n1 is greater than n2. “greater-than” 
>ҒСВ ** Refer to the File System chapter glossary *** 
>IN -- addr 


User variable pointing to the current character in the input stream. 
Error if the value stored is outside the range 0 to 1023 with no 
system response. See : WORD ' C." and FIND . "to- in" 


>JSR addr -- 
Jumps to the assembly code subroutine at addr. Registers А0-А2, 
DO-D3 are available; A3-A7, апа 04-07 should be saved and restored 
by the assembly routine if they would be modified. The JSR 
instruction places the address (containing NEXT ) on the return stack 
(A7). Return to FORTH via an RTS instruction. NOTE: MacFORTH 
expects to run in supervisor state, NOT user state. 'to-j-s-r" 


>LIST< яне 
Indirectly references the word to execute at the top of every listed 
screen. Used to time and date stamp listings. 


›В n-- 
Pushes the top stack item onto the return stack. Be aware that DO. . 
. LOOP affects the return stack. (DO pushes 2 items, LOOP pops them). 
Error if not balanced inside of a colon definition or inside a DO... 
LOOP structure with a matching R^ (see R) with an unpredictable 
System response. "to-r" 
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›ВЕСТ х1\у1\х2\у2 -- RB\LT\SP@ 
Returns address within stack of reformatted rectangle x1\y1\x2\y2. 
Rectangle coordinates are translated and offset according to 
XYSCALE, XYPIVOT, and XYOFFSET before reformatting occurs. 
Rectangle is in QuickDraw top,left, bottom, right format. 


»5YS.WINDOW --- 


Directs output to system window. 


»Wi« n\addr -- 
Stores the 16 bit value n at addr. Addr may be an odd address. 


> өк addr -- n 
Fetches the 16 bit value at addr. Addr may be an odd address. 


? addr -- 
Displays the 32-bit value at addr. “question mark" 


?ALIGN "m 
Forces the dictionary pointer to an even address. The user variable DP 
is incremented by one if it is odd. "query-align" 


?BLOCKS.FILE  file* -- flag 
Flag is true if File* is a BLKS type file. 


?СОМР ege 
Verifies compilation state. Issue the error message COMPILATION 
ONLY! USE ONLY IN A DEFINITION if STATE does not indicate 
compilation mode. "query-comp" 


?CSP --- 
Verifies the stack did not change during compilation. Issues the error 
message DEFINITION INCOMPLETE ! if the value in the user variable 
CSP is different from the stack position. See CSP . "query-c-s-p" 


?DAYS ni -- n2 


Converts ni seconds into n2 days. пі is divided by the number of 
seconds in one day, leaving the result n2. 


?DUP n -- [n\n] or [n] 
Duplicate n if it is non-zero. "query-dup" 
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?EOF жж Refer to the File System chapter glossary %% 


?ЕУЕМТ record\mask -- event code 
Copies next event that passes mask to record. Event is not removed 
from the event queue. — "query-event" 


?EXEC --- 
Verifies execution state. Issue the error message EXECUTION ONLY 
if STATE does not indicate execution mode. "query-exec" 


?FILE.ERROR = **Refer to the File System chapter glossary.** 


?FILES хх Refer to the File System chapter glossary ** 


?НЕАР.5І?Е = -- size 
Returns total amount of space available in heap, including any grow 
region. Refer to Apple Developer's documentation for further detail 
Reference: FreeMem 


?IN.CONTROL --flag 
Returns a true flag if most recent MOUSE.DOWN even occurred in a 
contro] attached to the currently active window. Тһе variable 
THIS.CONTROL contains the handle to the affected control. Тһе 
variable THIS.PART contains the relevant contro! part code. 


?KEYSTROKE —-- [key\true] or [false] 
Checks for a keystroke from the Mac keyboard. Returns a key under a 
true flag if a кеу was pressed, otherwise just returns a false flag. 


?LOADING -- 
Verifies loading from disc. Issue the error message: 
CAN'T USE FROM TERMINAL ! 
if a word is executed from the terminal which should only be executed 


from disc. "query-loading" 
?ОРЕМ ** Refer to the File System chapter glossary ** 


?PAIRS п1\п2 -- 
Verifies conditionals were paired in the latest definition. Issue the 
error message CONDITIONALS NOT PAIRED if n1 is not equal to n2. 
The message indicates compiled conditionals do not match. 
"query-pairs" 
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?PUNCT addr -- flag 
Checks for valid punctuation. Returns a true flag if the ASCII 
character at addr is one of the following: ,./: 17 the character is 
not one of the above, a false flag is returned. “query-punct” 


?ROOM ЕЕ 


Reports the amount of space available іп the heap, object and 
vocabulary memory areas. 


?SECONDS  n!--n2 
Converts nl seconds into n2 seconds since midnight of the current 
day. nl is divided by the number of seconds in one day, leaving the 
remainder n2. 


?50UND -- пад 


Returns а true flag if sound driver is active asynchronously. 


?5ТАСК --- 
Checks for underflow of the parameter stack. Issue the message 
STACK EMPTY! if the parameter stack underflows. 
"query-stack" 


?TERMINAL — -- flag 


Returns a non-zero flag if a key has been pressed, otherwise false. 
"query-terminal" 


?TRACE --- 
Compile (TRACE) into the dictionary if the TRACE option switch is 
enabled . "query-trace" 


?WORD char -- addr 
Parses a string from the input stream. Performs the same function as 
WORD (see WORD ), except it aborts with the error message: 
MISSING STRING DELIMITER 
if the input stream is exhausted before the delimiter was 
encountered. "query-word" 


e addr -- n 
Returns the 32-bit contents of addr. The error message “ADDRESS 
ERROR TRAP" indicates addr was odd. If you need to fetch data from 
odd addresses, use CMOVE or «We» . 
"fetch" 
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ee addr -- п 
Returns the 32-bit contents of the contents pointed to by addr. The 
error message “ADDRESS ERROR TRAP " indicates addr or its contents 
were odd. 
"fetch-fetch" 


ӘСІ ОСК --n 
Returns the number of seconds since 12:00 am 01/01/04 as read from 
the internal clock. 


eEVENT record\mask -- event code 
Copies next event from event queue to record. Returns event code if it 
applies to current window, otherwise O. 


eFILENAME  **Refer to the File System chapter glossary ** 


@INIT „== 
Asks for input of the user's initials. Тһе message: 
ENTER YOUR INITIALS [XXX] --> 
is displayed and you (or any user) can input up to 3 initials. 
e MOUSE -- point 
Returns current location of mouse in local coordinates. 


@MOUSE.DN . --point 
Returns location of where the mouse last went down (button pressed) 
in local coordinates. 


@MOUSEXY --x\y 
Returns mouse position in userwindow coordinates. Sensitive to 
cartesian flag, XYSCALE, XYOFFSET. 

@PEN -- ху 
Returns current pen position in local coordinates to the currently 
active window. 


@PENSTATE -- 20 bytes (5 stack items) 
Fetches the current pensize, penpat, penloc, and penmode to the stack. 
(see IPENSTATE) 


@POINT ( addr -- x\y ) 
Fetches 32 bit value from addr and unpacks x,y to stack. 
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@RECT addr -- t\l\p\r 


Unpacks rectangle at address. Top Left Bottom Right are pushed into 
stack. 


@SR --h 
Returns the contents of the 68000 hardware status register. This 


16-bit value is contained in the least significant bits of n. 
"fetch-s-r" 


ABORT pes 


Aborts the current task. Clears the data and return stacks and returns 
control to the console in execution mode. 


ABORT" flag -- 
Aborts the current task with the supplied message if flag is true and 
RETRY is zero. Used in the form: 

ABORT" «user message?" 

Compiles (ABORT) followed by «user message» preceded by its count 
byte. At execution time, if flag is true, «user message» is displayed 
in the MacFORTH window, and ABORT is executed. If flag is false, no 
action is taken. ІТ RETRY is non-zero, error recovery occurs at the 
stack frame in the return stack pointed at by RETRY . 
See ABORT , (АВОВТ") , RETRY . "abort-quote" 


ABORT.EVENT --n 
Constant event.code returned by DO.EVENTS on an abort event. 


ABS ni -- n2 
Returns n2 as the absolute value of ni. Error occurs when the 
argument is the most negative 32-bit number. That argument is 
returned unchanged with no error message. "absolute" 


ACTIVATEEVENT --n 
Constant event code returned by DO.EVENTS on an activate event. 


ADD.BLOCKS  ** Refer to the File System chapter glossary ** 
ADD. WINDOW  wptr-- 
Builds window from w.title, w.bounds, w.type, and w.attributes, and 


links it into window list and displays it if visible. W.BEHIND 
determines where window will appear in the window list 
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AGAIN --- 
Marks the end of an infinite loop structure. Causes an unconditional 
branch back to the start of а BEGIN... AGAIN loop construct. It is 
equivalent to BEGIN... О UNTIL See BEGIN, UNTIL. 


ALIT -- address | 
Pushes the sum of the next 32-bit value in the interpretation stream 
and NEXT.PTR into the stack. Advances over the value. 


ALLOCATE file size\file* -- 
See File System glossary. 


ALLOT == 


Increments the dictionary pointer by п. Aborts if object area is too 
small to contain n additional bytes. 


AND ni\n2 -- n3 
Returns n3 as the bitwise logical AND of n1 and n2. 


APLAY addr -- 
Passes addr+2 to Macintosh sound driver. Addr contains the 16-bit 
size of the waveform record at addr+2. Sound is generated 
asynchronoously. 


APPEND token\str.addr -- 
Appends string with token to current vocabulary. Error message is 
generated if insufficient space is available in the vocabulary. Resize 
the vocabulary with RESIZE. VOCAB . 


APPEND.BLOCKS * of biocks\file * -- 


See Editing Programs glossary. 


APPEND.ITEMS = item$\menuid -- 
Appends elements іп item$ ( separated бу”) to the specified menu. 
See Menu Chapter of the manual. 


APPLE.MENU | -- 


Installs the Apple desk accessory menu on the Menu Bar. 
ARC x1\y1\x2\y2\sa\ca\[pattern addr]\mode -- 


Draws ARC within the recangle x1y1x2y2 starting at angle sa and 
ending at angle ca. PATTERN.ADDR required for the PATTERN mode. 
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ASSIGN file$\file* -- 
see File System glossary. 


AUTOKEY --п 


Constant event code returned бу DO.EVENTS on an auto key (repeat) 
event. 


AXE -- 
Looks up and removes the next word in the input stream from the 
current vocabulary. Vocabulary is closed up to recover space. Object 
space for word is not affected. 


B/BUF -- N 
Returns the number of bytes per block buffer.(1024) 
"b-slash-buf" 


BACK addr -- 
Calculate the backward branch offset from HERE to addr. It is then 
compiled into the next available 16-bit memory cell in the dictionary. 


BACKPAT addr -- 
Sets QuickDraw background patternto supplied pattern address. 


BASE -- addr 
User variable containing the current 1/0 numeric conversion base. 
Error if the value in BASE is outside the range 2 through 70 with no 
system check. 


BEGIN --- 

Marks the start of a loop structure for repetitive execution. Used in a 
colon definition in one of the following forms: 

BEGIN... UNTIL BEGIN... AGAIN 

BEGIN... WHILE... REPEAT 
The words after UNTIL and REPEAT (remember, BEGIN ... AGAIN is an 
endless loop -- see AGAIN ) will be executed after the loop 
terminates. The error message: 

DEFINITION INCOMPLETE ! 
indicates the BEGIN was not matched with an UNTIL , AGAIN , or WHILE 
.. REPEAT sequence. 


BEHEAD token -- 


Removes the name and token fields for the supplied token from the 
current vocabulary. 
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BL -- 32 (decimal) 
Returns the value for the ASCII blank character. "b-1" 


BLACK -- addr 
Returns the address of the black pattern. 


BLANKS addr\cnt -- 
Fills memory at addr for cnt bytes with ASCII blanks. 


BLK -- addr 


User variable containing the block currently being interpreted as the 
input stream. If BLK is zero, the input stream is coming directly from 
the terminal. "b-1-k" 


BLOCK block* -- addr 
Returns the buffer address of the requested block number. If the 
requested block is not already in a block buffer, it is transferred from 
mass storage into the least recently accessed buffer. If the previous 
data in that buffer has been UPDATEd, it is written out to mass 
storage before the new block is read in. Only data within the latest 
block referenced by BLOCK is valid due to sharing of the block buffers. 


BLOCK-FILE — ** Refer to the File System chapter glossary ** 


BOLD -- 01 
Constant bit mask for bold text attribute. 


BOOLEAN  n--true or false 


Converts n to a true flag (71) if n is non-zero. 


BRANCH --- 
The run-time procedure to unconditionally branch. An in- line offset 
is added to the interpreter pointer, IP , to branch ahead or back. 
BRANCH is compiled by ELSE , AGAIN , and REPEAT . 


BRING.TO.FRONT  wptr -- 
Brings window to FRONT. 


B5 -- 08 (decimal) 
Returns the value for the ASCII backspace character. "b-s" 
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BUFFER block* -- buffer addr 
Returns the addr of an available block buffer for the block number 


given. 
BYE -- 

Exits MacFORTH, Launching Finder. 
C! char\addr -- 

Stores the 8-bit value char at addr. "c-store" 
C, char -- 


Emplaces char into the dictionary. Stores the 8-bit value into the 
dictionary at the current dictionary pointer value, and increments the 
dictionary pointer by 1. 


C/L --n 
Returns the number of characters per line in a block of source code. 
(64) 
"c slash 1" 

Ce addr -- char 


Returns the 8-bit value char located at addr. "c-fetch" 


CARTESIAN (addr -- ) 
Returns the address of the Cartesian coordinate flag. When this flag is 
on, coordinates are interpreted in Cartesian coordinates ( positive y up 
). When flag is off, Native QuickDraw coordinates ( negative y up ) are 
used. Refer to the graphics section for a complete discussion of this 
feature. 


CASE n--n 
Marks the beginning of a case statement. Used in the form: 
CASE .  XOF ... ENDOF 
Y OF ... ENDOF 
ENDCASE 


CENTER (--) 
Sets the graphics XYOFFSET to 1/2 MAXX , 1/2 MAXY, the center of the 
current window. 


CHARWIDTH char -- width 


Returns width in pixels for char in current font. 
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CHECK BOX (лї\л2\п3З\п4\п5 --) 
Check box control definition word. Unsupported in Level 1. Refer to 
Level 2 controls documentation. 


CIRCLE x\y\radius\[pattern]\mode -- 
Draws circle of radius at XY within current window according to mode. 
[PATTERN] present for pattern mode only 


CLEAR ==2 
QuickDraw shape mode attribute shape will be filled in with background 
pattern. 


CLIP>CONTENT wotr -- 
Clips all drawing in window to the content region. Controls will not be 
updated. Refer toNO.CLIP . 


CLOSE file* -- 


See File System glossary. 
CLOSEALL  ** Refer to the File System chapter glossary ** 


CLOSEBOX  --n 
Constant containing bit mask for close box attribute in window 
attribute field. 


CLOSE.WINDOW  wptr -- 
Closes window specified by wptr. АП window-related heap data 
Structures are returned to the heap. Window is removed from window 
linked list. if you are unable to close SYS.Window use HIDE. WINDOW . 


CMOVE src addrNdest addrNcnt -- 
Moves cnt bytes from srce addr to dest addr. The transfer begins in low 
memory and moves toward high memory (ie. the byte at src addr is 
moved to dest addr, then the byte at src addr+! is moved to dest 
addr* т, etc.) Error if the count is less than one; the system drops the 
parameters from the stack and no movement occurs. "c-move" 


CMOVE> src addr\dest addr\cnt -- 


Moves cnt bytes from src addr to dest addr. Starts at the end of the 
string and proceeds toward low memory. "c-move-up" 
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CNT -- addr 
User variable containing the total count of characters transferred by 
TYPE or EXPECT . Immediately following execution of EXPECT , CNT 
contains the actual number of bytes received. "c-n-t" 


CNTR -- addr 
User variable containing the current count of characters to be 
transferred. This number counts toward O for both input and output. 
operations. “c-n-t-r° 


COL -- addr 
User variable containing the current output column position. You may 
examine and alter this user variable to control display formatting. 
"col 


COMMAND.KEY --n 
Constant event.code returned by DO.EVENTS when a menu item is 
Selected from the Keyboard. 


COMPILE ge 
Used to compile the token for a word into the dictionary. When a word 
containing COMPILE is executed, the token for the word following 
COMPILE in the defintion is compiled into the dictionary. An unchecked 
error exists if the word following COMPILE is not found in the 
dictionary or convertible to a number. 


COMPILING --– flag 
Returns a true flag if STATE is non-zero. STATE = non-zero indicates 
compilation mode, STATE = zero indicates execution mode. 


CONDENSED -- 32 
Constant bit mask for condensed text attribute. 


CONFIGURE PRINTER #stop bits\parity\* data bits\ baud rate 
Used to custom configure the printer port for non-Imagewriter 
printers. Refer to the Printer chapter for more information. 


CONSOLE -- addr 


Returns the address of the user variable which contains the address of 
the current console device table. 
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CONSTANT n-- 
Creates a constant with value n. A defining word used in the form: 
n CONSTANT <name> to create a dictionary entry for <name>, which 
when later executed will leave n on the top of the stack. n is compiled 
into the pfa of <name>. 


CONTEXT -- addr 
Returns the address of the user variable which contains the handle for 
the vocabulary where dictionary searches are to begin during 
interpretation of the input stream. 


CONVERT n1\addr1 -- n2\addr2 
Converts the ASCII string at addri+! to its binary equivalent. The 
number is accumulated into п! and returned as n2. Addr2 is the address 
of the first unconvertible character. 


COPY src bIk*\dest bik* -- 
Copies the src blk* into dest ІК”. 


cos ANGLE -- cosine * 10000 
Returns integer cosine of angle * 10000 (4 digits precision). 


COUNT addr -- addr+1\cnt 
Returns the address and count of the text string at addr* 1. The count 
byte is at addr and text is at addr+1 on. The range of n is 0 - 255. 


CR --- 
Emits a CR LF to the current output device. "c-r" 

CREATE nm 
A defining word to create a dictionary entry for the name given. Used 
In the form: 


CREATE «name» 
to create a dictionary entry for «name», without allocating any 
parameter field memory. When <name> 15 later executed, the address of 
«name»'s parameter field is left on the stack. If the UNIQUE. MSG is on 
and the word already exists іп the CONTEXT or TRUNK vocabularies, the 
message “ISN'T UNIQUE" is displayed. See UNIQUE. MS6 


CREATE.BLOCKS.FILE ** Refer to the File System chapter glossary ** 
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CREATEFILE  fiie* -- 
See File System glossary. 


CRLF -- addr 
Returns the address of a literal string containing a CRLF sequence. Used 
in the form: CRLF 2 TYPE to output a CR LF sequence. "c-r-l-f" 


С5Р -- addr 


Returns the address of the User Variable which temporarily holds the 
value of the stack pointer during compilation for error checking. 
"с-5-р" 


CURRENT -- addr 
User variable which contains the handle for the vocabulary into which 
newle created words are appended. This is the second vocabulary to be 
searched during a dictionary search (after CONTEXT ). 


CURRENT-FILE  ** Refer to the File System chapter glossary ** 


CURRENT.POSITION ге” -- current file position 
See File System glossary. 


CURSOR -- addr 
Variable containing address of current cursor array. 


CURSOR.CHAR _ -- addr 
Returns the address of a variable containing the text font for the 
cursor symbol in the first 16 bits and the character code for the 
symbol in the second 16 bits. 


DAYS> *days since 01/01/84 -- year\days\month 
Converts days to year, days, month. 


DEALLOT token -- 
Deallots object space for and above token. 
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DEBUG -- addr 

User Variable containing flag which indicates debug mode. 

DEBUG ON 
sets the system into DEBUG state. 

DEBUG OFF 
clears DEBUG state. Wnen DEBUG is ENABLED , items left on the stack 
during execution are displayed with .S , and words being executed have 
their name and stack implications displayed, if they where compiled 
with TRACE mode set. 


DECIMAL -- 


Set the 1/0 numeric conversion base to ten. See BASE . 


DEFAULT.ACTIVATE -- 
Default activate function for all defined windows. Beeps on activate, 
(mouse down) nothing on deactivate. 


DEFINITIONS  --- 
Determines the vocabulary new definitions are compiled in. Set 
CURRENT to the CONTEXT vocabulary so that subsequent definitions will 
be created in the vocabulary previously selected as CONTEXT. 


DELETE file* -- 
See File System glossary. 


DELETE.BLOCKS ** Refer to the File System chapter glossary ** 


DELETE.MENU = menu.id 


Deletes menu menuid from menubar, redraws menubar. 


DEPTH --n 
Return the number of stack items (32-bit values) currently on the stack 
(before n was added). 


DEVICE.CONTROL parmt\parm2\cma\fcb 
Stores: 16 Bit CMD at FCB*26 
32 Bit PARMI at FCB+28 
32 Bit PARM2 at FCB+32 
0 0 at FCB+36 
Issues: OS CONTROL TRAP with FCB. 
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DEVICESTATUS  cmd\fcb -- рагт1\рагт2 
Stores: 16 Bit CMD at FCB*26 
issues: OS STATUS TRAP with FCB 
Fetches: 16 Bit PARMI from FCB+32 
32 Bit PARM2 from FCB+28 


DFLT.CONTROL --- 
Default word used to handle control characters on input and output for 
special console devices. 


DFLT.WINDOW.TAIL -- addr 


Array containing the default values for the MacFORTH extension to the 
standard window record. 


DIGIT char base -- [n\true] or [false] 
Convert the ASCII character char, using the base given, to its binary 
equivalent. ІТ the conversion was valid, n is left as the binary 
equivalent under a true flag, otherwise only a false flag is returned. 


DIR drive * -- 49'ER НӘР 
Prints catalog for media in drive. NORTH TAHOE HIGH SCHOOL 
P. О. BOX 5099 


DIRECTORY — — addr —. TAHOE CITY, CA 95730 
Returns the address of the user variable which contains the disc 


directory load screen. 


DISCARD.UPDATES -- 
Discards any pending update events for the current window. Used to 
eliminate double flash at window activation if ACTIVATE code redraws 
the window contents anyway. 


DISK -- addr 
Variable containing DISK resource variable. 


DISKEVENT --п 
Constant event.code returned by DO.EVENTS on a disk inserted event. 


DISPOSE.CONTROL п-- 


Disposes control. Unsupported in Level 1. Refer to Level 2 controls 
documentation. 
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DKGRAY --ааг 
Returns the address of the dark grey pattern. 


DO upper limit\lower limit -- 

Marks the beginning of a finite loop structure. Used in a colon definition 
inthe form: DO...LOOP or DO... n *LOOP Begins a loop which will 
terminate based on the upper and lower limits given. See LOOP and 
*LOOP . DO .. LOOP's may be nested as long as each DO is matched with а 
correspond- ing LOOP or *LOOP within the same colon definition. The 
error message DEFINITION INCOMPLETE ! indicates a DO was not 
matched with a corresponding LOOP or *LOOP . 


DO.EVENTS  --event.code 
Removes next event from the event queue. Executes any supplied default 
token in the events list, and returns the event code. Refer to manuals 
for discussion of event codes. 


DOES» m 

Defines the run-time action within a high-level defining word. Used in 
the form: 

: <name> .. CREATE .. DOES ..; 

It marks the termination of the defining part of the defining word 
«name» and begins the definition of the run- time action for words that 
will later be defined by «name». On execution of a word defined by 
<name>, the words between DOES» and ; will be executed, with the 
parameter field address of the new word on the stack. "does" 


DOT (x\y 77) 
Pen is placed at X,Y. Pen pattern, size, and mode determines effect on 
dots below and to the right of X,Y. X, Y are rotated, scaled and translated 
within the window. 


DOWN.BUTTON --n 
Part code for down button. Refer to Level 2 controls documentation. 


DP -- addr 
User variable containing the current value of the dictionary pointer. 
This value may be read using HERE and altered using ALLOT . See HERE 
and АШОТ. "d-p* 


DPL -- addr 


User variable containing the number of places after the decimal point 
for numeric input conversion. " 
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DRAW.CHAR char -- 
Draws character at current pen position with current text transfer 
mode in current textstyle textfont and textsize. 


DRAW.CONTROLS wotr -- 
Draws controls associated with window. Refer to Level 2 controls 
documentation. 


DRAW.MENU BAR -- 


Redraws menu bar from current menu list. Execute this word after 
adding or deleting items to or from the menu list. 


DRAW.TO — xy-- 
Draws to the supplied XY position. Dots to the right and below the pen 
are modified according to the current pen size, shape, pattern, and 
mode. 


DRAWSTRING ador -- 


Draws string at addr with count in first position at current pen 
position. Uses current text settings. 


DROP n-- 
Drop the top stack item. 


DRVREVENT --п 
Constant event code returned by DO.EVENTS on a DRIVER event 


DUP n-- n\n 
Duplicate the top stack item. "ире" 


DUP>R n--n 
Duplicates the top item on the stack and places it on the top of the 
return stack. 


EJECT drive* -- 
Ejects media in drive. 
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ELSE a 

Marks the beginning of the “false portion” of a conditional structure. 
Used in a colon-definition in the form: 

ІР... ELSE ... THEN 
If the conditional for the IF is true, when the ELSE is encountered, it 
passes control to the word following THEN . If the conditional for the IF 
is false, control is passed to the word following ELSE. The error 
message: 

DEFINITION INCOMPLETE ! 
indicates the control structure was missing its THEN . The error 
message: 

CONDITIONALS NOT PAIRED 
indicates the control structure was missing its IF . 


EMIT char -- 


Transmit char to the current output device (this is usually the active 
window). 


EMPTY --- 
Removes аһ words and vocabularies above the currently specified 
task-dependent FENCE from the dictionary. Tasks which are forgotten 
will be unlinked from the dispatch queue. See (FORGET), FENCE , 
SET.FENCE 


EMPTY-BUFFERS -- 


Clears contents of disc buffers, marking all buffers as inactive. 


ENCLOSE addr\delim -- addr\offset1\offset2\offset3 

Text parsing primitive. Given an address to parse from and a delimiter, 
this operator skips over leading delimiters returning address under 
offset to the first non-delimiter (offset), under the offset to the last 
non-delimiter (offset2), under the offset to the following delimiter 
(offset3). The enclosed test starts at addr+offset2. Parsing for the 
next word should begin at addr+offset3. A null (zero) character always 
acts as a delimiter regardless of the specified delimiter. 


ENDCASE n-- 
Terminates a case statement. Used in the form: CASE... XOF .. 
ENDOF ENDCASE Completes the case statement by dropping n and 
resolving all unresolved branch addresses (left on the stack by ENDOF) 
to pointer after ENDCASES . Executes during compil- ation. 
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ENDOF Bee 


Terminates a conditional branch within a case statement. Used in the 
form: CASE.. XOF..ENDOF ENDCASE 


ENTER.FLAG -- addr 
Variable containing the enter key flag. This flag is set when the enter 
key is used to terminate a line of input. The user is responsible for 
clearing and checking this flag. It is set by EXPECT . 


ERASE addr\n 


Zero fills memory at addr for n bytes. If nis less than or equal to zero, 
take no action. 


ERASERECT address -- 
Erases contents of rectangle at address to background pattern. 
rectangle is 4 16 bit values representing top,left,bottom,right. 


ERROR addr\cnt -- 
Executes the cfa contained in the user variable (ERROR) . addr and cnt 
point to a string to be output. See (ERROR) , ((ERROR)) , (ERROR") , and 
ERROR" . 


ERROR" flag -- 
Aborts the current task, displays the name of the word executed and 
the supplied message if flag is true. Used in the form: 
ERROR" «user error message?" 

Compiles (ERROR") followed by the inline literal string. If flag is true 
when (ERROR") executes, the name field of the most recently 
interpreted word (in POCKET ) is displayed, followed by the string «user 
error message», finally the system ABORTS, returning control to the 
console. ІТ flag is false, control is passed to the word following the 
string literal. "error-quote" 


EVENT.LOOP -- 


Default loop which dispatches to the next active window. If all 
windows are deactivated, this word patiently executes do.events until 
an activate event occurs. 
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EVENT.RECORD -- addr 
Array containing the event record for the current event. 
bytes: 0-1 contain the event code 
2-5 contain the event.message 
6-9 contain the mouse 
10-13 contain the time in ticks when the event occured 
14-15 contain the modifiers bits ( kbd state) 


EVENT.TABLE  -- addr 
Array containing default tokens to be executed for each of the 24 
standard events. DO.EVENTS always executes this token whenever the 


appropriate event occurs. The caller to do.events is also notified with 
an event code. 


EVENTS -- addr 

Returns the address of the variable containing the mask for аП events. 
EVENTS OFF 

Disables all events. No events are enabled when DO.EVENTS is called. 
EVENTS ON 

Enables all events. 

NOTE: If а keystroke is waiting in the keystroke array, the contents of 

EVENTS is anded with the constant -KEYBOARD , effectively disabling 

keyboard events until the keyboard data is read. This allows for type 

ahead. 


EXECUTE token -- 


Execute the dictionary entry whose token is on the stack. 


EXIT --- 
Terminates execution of a definition. When compiled into a colon 
definition, causes the word to terminate at that point when later 
executed. An unchecked error exists if used within a DO .. LOOP 
structure ога ›В ... R> pair. 


EXPECT addr\max cnt -- 
Accepts up to max cnt characters from the terminal and stores them at 
addr. Input terminates on receipt of either a carriage return or max 
cnt characters. No action is taken for max cnt less than one. The user 
variable CNT is set to the actual number of charaters recieved. 


EXTENDED -- 64 
Constant bit mask for extended text attribute. 
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EXTERNAL --2 
Constant drive number for the external drive. Use with EJECT , DIR 


FALSE -- 0 
Boolean false constant. 


FCB.LEN ** Refer to the File System chapter glossary ** 


FENCE -- addr 
Returns the address containing a pointer below which FORGETTING is 
prevented. to FORGET below this point, alter the value in fence or use: 
FENCE OFF. NOTE: FENCE is set by the system to prevent FORGETting of 
interrupt handlers and vectored words so use caution when changing its 
value. See SET.FENCE, FORGET 


FIELD n-- 
MacFORTH field defining word. Creates a 16 bit constant which will add 
itself to the word on the top of the stack when executed. 


FILEERROR.M565 -- addr 
String array containing file/os error messages. 


FILE.TYPE — filetypeMile* 
Sets the file type for the file (ie: "ТЕХТ 1 FILETYPE). 


FILL addr\cnt\char -- 
Fills memory at addr for cnt bytes with char. No action taken for cnt 
less than one. 


FIND -- [token] or [0] 
Returns the token for the next word in the input stream. If that word 
cannot be found in the dictionary after a search of CONTEXT or TRUNK 
vocabularies, returns a zero. 


FIND.CONTROL  pointNwptr -- control.handleNcontrol part code 
Returns control part code and handle if point is in a control. part code: 
О = no control 1=inbutton 2-іпсһеск box 3 = inuparrow 
4-indownarrow S=inpageup 6=inpagedown  7-inthumb 
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FIND.WINDOW point -- wptrNwindow part 
Returns window pointer under window part code. 
Part code: 
О in desktop 
1 in menubar 
2 in system window 
3 in content of active window 
4 in drag of active window 
5 in grow of active window 
6 in close of active window 


FIRST -- addr 
Returns the address of the first block buffer. 


FLUSH ses 
Writes all blocks that have been UPDATEd to mass storage. Identifies 
all blocks as 7FFFFFFF (hex) to force any new block to be re-read from 
mass storage. Use when changing media. 


FLUSH.EVENTS -- 


Flushes all pending events from 
FLUSH.FILE — ** Refer to the File System chapter glossary ** 
FLUSH.VOL — ** Refer to the File System chapter glossary ** 


FMT.DATE$  *days\flag -- addr\cnt 
Formats a date string for output. The date formatted is in terms of 
*days since 01/01/84. If the flag is true the month, day and year are 
separated by slashed ("/"). The formatted string is placed at addr for 
cnt bytes. 


FMT.TIME$ adar -- 


Formats the time output string at addr in the following format: 
HH:MM:SS XM 


FOLLOWER . -- addr 
User variable containing the address of the base of the user area for 
the following task in the multitasking round- robin task dispatch queue. 
With no other tasks running, this is the address of the console STATUS. 
See STATUS. 
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FORGET --- 
Removes entries from the dictionary. Used іп the form: 
FORGET <name> 
to delete from the dictionary (in the CONTEXT vocabulary) al! entries 
added after and including «name». Forgotten Menus or windows are 
disabled. No action is taken if «name» is not found in the CONTEXT or 
TRUNK vocabularies. FORGETting is terminated at the FENCE. 


FORTH pes 
The name of the primary vocabulary. When executed, FORTH becomes 
the CONTEXT vocabulary. 


FRAME == 


QuickDraw shape mode attribute. Shape will be drawn in outline mode. 


FROM.CURRENT -- position mode 


See File System glossary. 


FROM.END -- position mode 
See File System glossary. 


FROM.HEAP size -- handle 

Requests memory manager to allocate a relocatable data structure in 
the heap of size bytes. Handle returned is non-zero if successful and 
contains the address of a pointer to the allocated data structure. The 
contents of the handle changes dynamically with the heap, however the 
address of the handle will never change. Refer to the Apple Developer's 
documentation for further details. Reference: NewHandle. See also: 
IN.HEAP, TO.HEAP, RESIZE.HANDLE 


FROM.START  -- position mode 
See File System glossary. 


FRONT.WINDOW -- wptr 
Returns wptr to currently active (or front) window. 


FUNOL ve 


Macintosh toolbox Pascal function call compiler. Refer to the Advanced 
Topics Toolbox Interface section. 
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FUNC? W n-- 
Macintosh toolbox Pascal function call compiler. Refer to the Advanced 
Topics Toolbox Interface section. 


GET addr -- 
Multitasking stub for source compatibility with future products. 


GET.CONTROL n--n 


Not supported in Level 1. Refer to MacFORTH Level 2 controls 
documentation. 


GET.CURSOR -- 


Returns address of cursor in use. (0 indicates default NW arrow). 


GET.DATE$ adar -- 


Formats the current date into a string in the format MM/DD/YY and 
places it at addr. 


GET.EOF ** Refer to the File System chapter glossary ** 
GET.FILE.INFO ** Refer to the File System chapter glossary ** 
GET.FILE.TYPE хх Refer to the File System chapter glossary ** 


GET.ICON resid -- handle 
Reads ICON RESID from the resource file. The handle to the ICON 15 
returned. See PLOT.ICON . 


GET.LINE.HEIGHT  -- line height 
Returns the line height for the current window. See the Graphics 
chapter. 


GET.PICTURE  resid -- handle 
Reads the picture RESID from the resource file, returning its handle. 


GET.PIXEL — (x\y -- flag) 


Returns TRUE if the pixel at X,Y in the current window is on. 


GET. RECLEN =» Refer to File System chapter glossary ** 


GET.SCRAP — ** Refer to the Advanced Topics chapter - Cutting and 
Pasting between Applications ** 
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GET.TEXTFONT -- font* 
Returns text font number for current window. See graphics section. 


GET.TEXTMODE -- mode 
Returns text mode for current window. See graphics section. 


GET.TEXTSIZE -- text size 


Returns current text size. See graphics section. 


GET.TEXTSTYLE -- style bits 


Returns text style bits for the current window. See graph- ics section. 


GET.TIME$ addr -- 
Stores the formatted time string (in the format HH:MM:SS XM) at addr. 


GET.WINDOW --wptr 


Returns the window pointer of the currently active window. 


GET.XYOFFSET (-- ху) 
Returns the offset in QuickDraw native coordinates to the 0,0 origin of 
the current window. 


GET.XYPIVOT — -- angie 


Returns current XYPI VOT angle for the current window. 


GET.XYSCALE -- XSCALE\YSCALE 
Returns the X and Y scale factors for the current window. 


GINIT --- 
Initializes graphics parameters for the current window. The following 
defaults are set: 
XYPOS --> XYBIAS erased 
100 100 XYSCALE 
0 ХҮРІУОТ 
12 TEXTSIZE 
15 LINE-HEIGHT 
11 PENSIZE BLACK РЕМРАТ 
0 0 XYOFFSET 
ОО MOVE.TO 
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GLOBAL>LOCAL point -- point 
Converts point in global coordinates to point in local coordinates 
relative to the currently active window. Point is two 16 bit words 
packed into 32 bits, y in high order word, x in lower. 


GRAY -- addr 
Returns the address of the gray pattern. 


HANDLE.SIZE handle -- size 
Returns size of relocatable data structure in heap. Reference 
APDEVDOC: GetHandleSize 


HANDLER -- addr 
User variable containing the address of the interrupt handler for the 
current task. 


HBAR.BOUNDS мрѓг -- t\I\b\r 
Returns rectangle for horizontal scroll box within window. 


HERE -- addr 


Returns the address pointed to by the dictionary pointer. It is the next 
available memory location in the dictionary. 


HEX os 


Sets the current numeric 1/0 base to hexadecimal. 


HIDE.CURSOR -- 
Increments cursor level. When cursor level is 0, cursor is visible. Use 
INIT.CURSOR to reset cursor level. See SHOW.CURSOR 


HIDE.PEN --- 
Decrements реп level in current graphport. See SHOW.PEN for 
discussion of why this may be useful. 


HIDE.WINDOW  wptr -- 


Clears visible flag in windwow at wptr. Window will immediately 
disappear from screen. 


HILITE.CONTROL ni \n2 -- 
Refer to Level 2 Controls Documentation. 
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HILITEMENU  n-- 


Highlight menu n . Where n is 0, no menus are highlighted. Normally used 
to turn off menu highlight which is auto- matically done when a menu 
item is selected. 


HILITE.WINDOW flag wptr -- 
Window primitive. Hilights the specified window based on flag. 


HLD -- addr 
User variable which holds the address of the latest character of text 
during numeric output conversion. "h-1-d" 


HOLD char -- 


Inserts char into a pictured numeric output string. May only be used 
between «* and %». An unchecked error occurs when used outside «* 
and *» . See «* and *>. 


HUSH  --- 
Immediately terminates any sound being produced by the sound driver. 


l -- П 
Copies the loop index (maintained on the top of the return stack) onto 
the data stack. Must be used only within а DO .. LOOP structure. 
Unchecked error occurs if used outside a DO .. LOOP or DO ... *«LOOP 
structure. Warning: If you use R> ог ЭН inside a loop, the loop indices 
may be covered up. 


! [iss 
Stores n at the address corresponding to the current value of the loop 
index. "i-store" 


I+ n -- n+(loop index) 
Increments the top of the stack by the current loop index. 


Ін! nNoffset -- 
Equivalent to | + 1. 


He offset -- n 
Equivalent to | + e. 


HWI! n\offset -- 
Equivalent to | + WI. 


MacFORTH Glossary Page 15 - 51 June 5, 1984 


{+ ө offset -- n 
Equivalent to | * we. 


l- n -- n-(loop index) 
Decrements the top of the stack by the current loop index. 


le -- n 
Fetches n from the address corresponding to the current value of the 
loop index. "i-fetch" 


IBEAM -- addr 
Returns address of | Beam cursor array. 


ІСІ char -- 


Stores char (using C! ) at the address corresponding to the current value 
of the loop index. "i-c-store" 


ІСе -- сһаг 
Fetches char (using C@ ) from the address corresponding to the current 
value of the loop index. "i-c-fetch" 


ID. nfa -- 
Prints the name field of the definition whose nfa is given. "i-d-dot" 


IF flag -- 

Marks the beginning of the "true portion" of a conditional structure. 
Used in a colon definition in the form: 

IF .. THEN 
or 

IF ... ELSE ... THEN 
If flag is true, the words following IF until the ELSE (if present) or 
THEN (if ELSE is not present) are executed. If flag is false, control is 
passed to the words following ELSE (if present) or THEN (if ELSE is not 
present). The error message DEFINITION INCOMPLETE ! indicates the IF 
was not matched with a THEN. See ELSE and THEN . 


IFEND --- 
Marks the end of an executable conditional structure. Executed іп the 
form  IFTRUE.. OTHERWISE... IFEND or  IFTRUE ... IFEND Execution 
version of the compiled IF ... ELSE ... THEN structure. This word is used 
as a marker for IFTRUE and OTHERWISE and if executed does nothing. 
See IFTRUE and OTHERWISE . "if-end" 
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IFTRUE flag -- 

Marks the beginning of the "true portion" of an executable conditional 
structure. Executed in the form | IFTRUE ... OTHERWISE ... IFEND ог 
IFTRUE ... IFEND Execution version of the compiled IF ... ELSE ... THEN 
structure. IFTRUE performs the execution version of IF in the compiled 
version. If flag is true, the words following IFTRUE up to the 
OTHERWISE (if present) or IFEND (if OTHERWISE is not present) are 
executed. If flag is false, control is passed to the words following 
OTHERWISE (1f present) or IFEND (if OTHERWISE is not present). The 
error message MISSING OTHERWISE OR IFEND implies the input stream 
was exhausted before an OTHERWISE or IFEND was encountered. See 
IFEND and OTHERWISE . 


ILLEGALFILE --- 
See File System glossary. 


IMMEDIATE -- 


Marks the most recently defined word as "immediate". The word will be 
executed when encountered during compilation rather than compiled 
into the dictionary. 


IN.BUTTON --n 
Refer to Level 2 Controls Documentation. 


IN.CHECK.BOX --п 


Refer to Level 2 Controls Documentation. 


IN.CLOSEBOX --n 


Constant event code returned by DO.EVENTs when a mouse down occurs 
in the close box of the currently active window. 


INDESKTOP --п 


Constant event code returned by DO.EVENTS when a mouse down occurs 
on the desktop. 


IN.DRAG.BOX --п 


Constant event code returned by DO.EVENTS when a mouse down occurs 
in the drag region of a window. 
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IN.HEAP -- 


Marks the latest word as containing а heap handle іп its parameter 
field. When the word is later forgotten, the handle will be 
automatically returned to the heap. 


IN.LOWER. WINDOW --n 


Constant event code returned by DO.EVENTS when a mouse down occurs 
in a non.active window. 


IN.MENUBAR --n 


Constant event.code returned by DO.EVENTS when a mouse down occurs 
in the menu bar. 


INSIZEBOX --п 
Constant event code returned by DO.EVENTS when a mouse down occurs 
in the size box of the currently active window. 


IN SYS.WINDOW --n 
Constant event code returned by DO.EVENTS when a mouse down event 
occurs in a system (desk accessory) window. 


IN. THUMB --п 


Refer to Level 2 Controls Documentation. 


INCLUDE"  --- 
Refer to the File System chapter glossary. 


INDEX first screen* Mast screen* -- 
Displays the first line of each block over the range given. The first line 
of each screen should be a comment describing the contents of that 
screen. 


INIT.CURSOR -- 
Resets cursor level to 0, displays northwest arrow (df1t) cursor. 


INITIALS — -- адаг 
User variable containing the user's initials for a terminal task. 
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INPUT.NUMBER width -- [n\true] or [false] 
Inputs a number of up to the width specified. If nothing is entered (the 
operator just pressed return), a false flag is returned. ІТ a number is 
entered, the number is returned under a true flag. Invalid characters 
(non 0-9 or "-"), terminate number conversion when encountered. 


INPUT.STRING  addrvcnt -- 
Inputs a string to a string variable (or any address). After the string 
has been input, the number of characters entered is stored at addr, the 
string at addr* 1 on. 


INTERNAL  --! 


Constant drive number for the internal drive. 


INTERPRET -- 


Executes ‘INTERPRET . You may use an alternate text interpreter (for 
example, one that accepts floating point numbers) by storing the cfa of 
your new interpretation word into the pfa of INTERPRET. The actual 
definition of INTERPRET is simply: : INTERPRET ‘INTERPRET ; *** 
Note: Be aware that modifying INTERPRET affects ALL tasks. 


INVALID.RECT adar -- 
Marks the rectangle at addr within the current window as not requiring 
updates. 


INVERT --3 
QuickDraw shape mode attribute shape will be drawn with all bits 
inverted in the destination. 


IO-RESULT -- addr 
See File System glossary. 


ITALIC -- 02 
Constant bit mask for italic text attribute. 


ITEM.CHECK item\check.flag\menuid -- 
Sets or clears check mark associated with item on menu menuid. 


ITEMENABLE item\flag\menuid -- 


Enables or disables item on menu menuid. Disabled items cannot be 
selected. 
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ITEM.ICON — item\icon\menu.id -- 
Displays selected icon with menu item. See menu section of 
documentation for further discussion of item icons. 


ITEM.MARK . item\mark\menuid -- 
Selects mark to associate with menu item. See menu section in 
documentation for discussion of associated item marks i.e. check mark 


ITEM.STYLE — item\style.char\menuid 
Selects text style for menu item from style character. See menu 
section of documentation for description of style character. 


J -- п 
Returns the index of the next outer finite loop construct. May used only 
within a nested DO .. LOOP (or DO .. *LOOP ). An unchecked error occurs 
if used outside a DO ... LOOP or DO ... *LOOP structure. 


KEY -- char 
Returns the ASCII value of the next available character from the 
current input device. 


KEY DOWN --п 
Constant event code returned by DO.EVENTS on a key down event. 


KEY.STROKE -- addr 


Array containing the event record for the most recent keystroke. A two 
byte filler is added to the front of the record so that the first four 
bytes may be used as a flag. ie. KEY STROKE @ See EVENT.RECORD for 
field layout 


KEY.UP --n 
Constant event code returned by DO.EVENTS on a key up event 


KILL.CONTROLS  wptr -- 
Refer to Level 2 Controls Documentation. 


KILL.IO buf.ptr -- 
Aborts any pending i/o transaction on device associated with buf ptr. 


DFUNOL  n-- 


Macintosh toolbox function call compiler. Refer to the Advanced Topics 
chapter, toolbox interface discussion. 
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LATEST -- nfa 
Returns the nfa of the most recently defined word in the CURRENT 
vocabulary. 


LEAVE --- 
Forces termination of a finite loop structure at the next LOOP or *LOOP. 
Sets the loop limit equal to the current value of the index. The index 
itself remains unchanged and execution proceeds normally until the 
loop terminating word ( LOOP or *LOOP ) is encountered. An unchecked 
error occurs if used outside of a DO .. LOOP or DO .. +LOOP with 
unpredictable results. 


LIMIT -- addr 
Returns the address just above the highest memory available for a disc 
buffer. This is usually the highest system memory. 


LINE# -- addr 
User variable containing the number of lines output. This variable is 
incremented by CR and set to zero by РАСЕ. 


LINE-HEIGHT n-- 
Sets line height to n scaled by Y scale. 


LIST block* -- 
Lists the contents of the given block number. The value in OFFSET is 
taken into account. See OFFSET . 


LIT -- n 
Places the compiled number following it on the stack. Within a colon 
definition, LIT is automatically compiled before each literal number 
encountered in the input stream. Later execution of LIT causes that 
number to be placed on the stack. If LIT is compiled, the following 
32-bit value (usually a compiled cfa) will be pushed on the data stack 
at run time. 


LITERAL n-- 
If compiling, compile n as a literal number, which when later executed 
operator takes the number off of the data stack at compile time. For 
example, to compile the number of the current block, you could execute 
the following [BLK © | LITERAL This would return the block number 
that the definition was compiled into at run time. 
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LMOVE addr 1 Naddr2Ncnt -- 
Moves cnt 32 bit words from address! to address2. 


LMOVE» src addr\dest addr\cnt -- 
Moves cnt long words (32-bit, 4 byte) from src addr to dest addr. Starts 
at the end of the array and proceeds towards low memory. — "move-up" 


LOAD block* -- 

Interprets the contents of block*. Begins interpretation of the block 
number given by making it the input stream and preserving the current 
contents of >IN and BLK. If interpretation is not terminated explic- 
itly, it will be terminated when the input stream is exhausted. Control 
then returns to the input stream containing LOAD , determined by the 
input stream locators >IN and BLK . The value in the user variable 
OFFSET is added to the block* given. Error if the specified block cannot 
be loaded from mass storage. See BLOCK , >IN, BLK , and OFFSET . 


LOAD.SCRAP  -- ioresult 
Loads the clipboard into memory. 


LOCAL>GLOBAL point -- point 
Converts point in coordinates local to the currently active window to 
global screen coordinates. Point is two packed 16 bit words, y in higher 
word, x in lower. 


LOCK.FILE ** Refer to the File System chapter glossary ** 


LOCKFONT font* -- 


Locks font in memory. Will not be lost on heap compression. 


LOCK.HANDLE nandle -- 
Marks relocatable heap data structure as locked. See Apple Developer's 
documentation for further details. Reference: HLock 


LOOP ses 
Terminates a finite loop structure. Used in the form: 
DO ... LOOP 
Increments the DO ... LOOP index by one, terminating the loop if the new 
index is equal to or greater than the loop limit. The error message 
CONDITIONALS NOT PAIRED indicates the LOOP was not preceded by a 
matching 00. See DO and +LOOP . 
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LOWER.CASE -- addr 


User variable containing a flag which when true causes FIND to convert 
all interpreted strings to upper case. LOWER.CASE ON Enables 
conversion LOWER.CASE OFF Disables conversion 


LOWERLEFT --- 


Sets the graphics XYOFFSET to the lower left corner of the current 
window. 


LTGRAY = -- addr 
Returns the address of the light gray pen pattern. 


M* ni\n2--d 
Returns the signed 64-bit product of the two signed 32-bit numbers 
given. "m-star" 


M/MOD d\n -- remainder\quotient 
Divides the 64-bit number d by the 32-bit number n, return- ing the 
32-bit signed remainder and quotient. "m-divide-mod" 


MAC.CON -- addr 


Array containing console device i/o vectors for Macintosh console. 


MAC.CONSOLE -- 


Sets Macintosh console as default console device. 


MACFILES -- 
Sets the file read/write operator for blocks to MAC.R/W. See MAC.R/W, 
(R/W) 


MACR/W addr\block#*\flag -- 
Standard Macintosh block file read/write primitive. If flag is non-zero, 
Block is read to address, if flag is zero, block is written from address. 


МАКЕ ВЕСТ х1\у1\х2\у2 -- ху\ху\ addr 


Compresses XY coordinate pairs into а TLBR rectangle. The address of 
the rectangle within the stack is left on the stack. 
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MAKE.TOKEN addr -- token 
Converts the address on the stack to a 16 bit token. If the address is 
greater than NEXT.PTR+32k, a new entry is made in the token table, and 
the relative offset to the token table entry (below NEXT.PTR) is 
returned. All tokens are 16 bit values, Token table offsets are negative 
from NEXT.PTR. See NEXT.PTR, NEW.TOKEN, ТОКЕМ» ADDRESS. 


MATCH $\$ cnt\addr\cnt -- [ONaddr2] ог [true\addr3] 
String comparison routine to find a match on the string at $ (its 
address) for $ cnt bytes over the range addr for cnt bytes. 


MAX ni\n2 -- n3 
Leaves the maximum of n1 and n2. "тах" 


MAX.X SEX 


Returns the maximum X coordinate in QuickDraw native representation 
of the content region of the current window. 


MAX.Y --у 
Returns the maximum Y coordinate іп QuickDraw native representation 
of the current window. 


MENU.ENABLE flag\menuid -- 


If menu is non-zero, menu is enabled, otherwise menu is disabled, and 
cannot be selected. 


MENU.HANDLE . menuid -- menu.handle 


Returns handle for menu menuid. 


MENU.SELECTION: menuid -- 


Exits the current definition, placing the following address into the 
menus array at menuid*4. When the menu is later executed, control is 
passed to the following address. See Menu section of the documentation 
for further details. 


MENUS -- addr 
16 element array containing the address to execute for each of the 16 
possible active menus. 


MIN ni\n2 -- n3 
Leaves the minimum of n1 and n2. "min" 
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MINIMUM OBJECT size -- 
If the current object size is less than the specified size, MacFORTH 
attempts to resize the object image to the specified size. See 
RESIZE.OBJECT 


MINIMUM.YOCAB size -- 
If the current vocabulary size is less than the specified size, MacFORTH 
attempts to resize the vocabulary image to the specified size. See 
RESIZE. VOCAB 


MOD ni\n2 -- n3 
Returns the remainder of nt divided by n2, with the same sign as пі. 
Error if division by zero (see */ ). "mod" 


MONTHS  -- addr 


Returns the address of the table containing the number of days in each 
month. 


MOUSE.BUTTON -- flag 
Returns state of mouse button. True when down. 


MOUSE.DOWN  --n 
Constant event code returned by DO.EVENTS if a mouse down event 
occurs. ie. MOUSE.DOWN e See EVENT.RECORD for field layout 


MOUSE.DOWN.RECORD  -- addr 
Array containing the event record for the most recent mouse down 
event. А two byte filler is added to the record so that the first four 
bytes may be used as a flag. ie. MOUSEDOWNRECORD e See 
EVENT.RECORD for format. (add 2 bytes at start) 


MOUSEUP = --n 
Constant event code returned by do.events if a mouse up event occurs. а 
flag. ie. MOUSE.UP @ See EVENT.RECORD for field layout 


MOUSE.UP.RECORD -- adar 
Array containing the event record for the most recent mouse up event. a 
two byte filler has been added to the start of the record so that the 
first 4 bytes may be used as a flag. ie. MOUSEUP.RECORD e See 
EVENT.RECORD for format ( add 2 bytes at start) 
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MOUSE.WAS.. -- point 


Returns location of where the mouse last went down in global 
coordinates. 


MOVETO »ху- 
Moves the pen to the supplied X,Y position. 


MT n-- 


Macintosh toolbox procedure cal! compiler. Refer to the Advanced 
Topics chapter toolbox interface discussion. 


MTW n=- 
Macintosh toolbox procedure call compiler. Refer to the Advanced 
Topics chapter toolbox interface discussion. 


MUNGER handle\offset\addr 1 \cnt 1 \addr2\cnt2 -- result 
Macintosh universal string operator. 


NEEDED (n=) 


Aborts the current definition if less than n items are available on the 
stack. 


NEGATE neeh 


Returns the two's complement of n. Error if n is the most negative 
integer, system response is to return the same value given. 


NETWORK.EYENT --n 


Constant event code returned by DO.EVENTS on a network event. 


NEW MENU _sposition\title$\menuid -- 
Defines new menu, links it into menu list. menuid must be in the range 
0-15, title$ is preceeded by the count, and position of O places item on 
the left, -1 on the right See menu section of documentation for 
examples . 


NEW STRING © str.addr -- handle 
Allocates new handle from heap for string and copies string into 
handle. Handle is returned on stack. Use ІМНЕАР to tag any word 
defined with this handle in order to deallocate handle when word is 
forgotten. 
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NEW.TOKEN addr -- token 
Converts address on stack to an indirect token. An entry is made in the 
token table, and the negative relative address to NEXT.PTR of the token 
table entry is returned. Used by NEW.TOKEN to handle addresses » 
NEXT.PTR* 32k. 


NEW.WINDOW -- 


MacFORTH window defining word. Creates named window record which 
will return it's wptr when executed. 


NEXT.FCB --file* 
Returns the file number for the next available file control block for 
assignment. Aborts with the error message "No FCBs Available!" if all 
FCBs are in use. 


NEXT.PTR -- addr 
Returns the address contained in the relocation base register, A4. 
Positive tokens are merely added to A4 to provide the actual address. 
Negative tokens are added to A4 to produce an address within the token 
table. The 32 bit address contained at this location in the token table is 
then added to A4 to produce the actual address. Assembly code for the 
fundamental FORTH primitive NEXT starts at NEXT.PTR. 


NFA pfa -- nfa 
Converts the pfa given to the nfa for the definition. "n-f-a" 


NO.CLIP wptr -- 
Disables clipping within window bounds. Note that controls may only 
be drawn or updated if CLIP>CONTENT is active. 


NO.ECHO -- addr 

User Variable containing a flag which is used by EXPECT. When NO.ECHO 
is non-zero, EXPECT does not echo keystrokes. to the console. QUIT 
resets this flag to the default cleared (or always flag true to disable 
echo when it calls EXPECT. Uses include: passwords,and fully 
intrepreted text fields ( ie: left zero fill calculator type text entry ) 
NO.ECHO ON disabled keystroke echo NO.ECHO OFF echoes keystrokes 
in EXPECT | 


NO.RETRY -- 


Procedure which pops the recovery stack frame from the return stack. 
Pushed onto the return stack at the bottom of the recovery frame. 
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NON.PURGABLE handle -- 
Marks relocatable heap data structure as non-purgeable. See Apple 
Developer's documentation for further details. Reference: HNoPurge 


NOT flag -- -flag 


Reverse the boolean value of the flag given. This is identical to O=. 
See 0=. 


NOT.VISIBLE --п 


Constant bit mask for not.visible window attribute. 


NOTPATBIC --п 


Constant specifying bit transfer mode. Current pattern is 
complemented and used to clear corresponding bits in the destination. 


NOTPATCOPY --п 


Constant specifying bit transfer mode. Current pattern is 
complemented and copied directly into destination. 


NOTPATOR -- 


Constant specifying bit transfer mode. Current pattern is 
complemented and Or'ed into destination. 


NOTPATXOR --п 


Constant specifying bit transfer mode. Current pattern is 
complemented and Exclusive Or'ed into the destination. 


NOTSRCOR --п 


Constant specifying bit transfer mode. Source pattern is complemented 
and Or'ed with destination. 


NOTSRCBIC --п 
Constant specifying bt transfer mode. Source pattern is complemented 
and used to clear corresponding bits in the destination. 


NOTSRCCOPY --п 


Constant specifying bit transfer mode. Source pattern is complemented 
and copied directly to destination. 


NOTSRCXOR --п 
Constant specifying bit transfer mode. Source pattern is is 
complemented and Exclusive Or'ed with destination. 
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NULLEVENT --п 


Constant event code. No events posted. 


NUMBER addr -- n 
Attempts to convert the string at addr* 1 to a number. If successful, n 
is returned, otherwise an error is generated indicating that the string 
was not recognized as a number in the current base. 


OBJECT.FULLH --- 


Aborts with the error message "Object Full!" if the object area is full. 


OBJECT.HANDLE -- addr 
User variable which contains the address of the handle which points to 
the base of the current object area. The object area is allocated from 
the heap and is set up as locked and nonpurgable. This area may be 
resized with the RESIZEOBJECT operator as long as no other 
non-relocatable memory allocation has occured above this address. 


OBJECT.ROOM  -- = bytes 
Returns number of bytes available in the current object space. 


OF ni\n2 -- [nt] or (] 

Marks the beginning of a conditional branch within a case statement. 
Used in the form: 

CASE... 

X OF ... ENDOF 

ENDCASE 
If ni is equal to n2, both arguments are dropped, and execution 
continues through ENDOF and then skips to the next ENDCASE . If nl is 
not equal to n2, n2 is dropped and execution continues after ENDOF . 


OFF addr -- 
Stores a 32-bit zero at addr. 


OFF.CONTROL n-- 


Refer to Level 2 Controls Documentation. 


OFFSET -- addr 
User variable containing the block offset value. Used by BLOCK to 
determine the actual physical block number to be accessed. 


ON addr -- 
Stores a 32-bit -1 at addr. 
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ON.ERROR aye 
Establishes the recovery stack frame. Compiles (ON.ERROR) to 
establish this frame and branches over the recovery code past the 
delimiting RESUME . Used in the form: 
ON.ERROR <recovery code> RESUME 


ОМ АСТІРАТЕ  wptr -- 
Defines token to execute when window is activated. Used іп the form: 
«wptr» ON.ACTIVATE «procedure» 
When «procedure» is later invoked (as a result of the window becoming 
active) a flag is left on the stack. If the flag is true, it is an activate 
event, if false, it is a deactivate event. 


ON.CONTROL n -- 


Refer to Level 2 Controls Documentation. 


ON.UPDATE wptr-- 
Defines the token to be executed when an update event occurs for 
window wptr. Used in the form: my.window  on.update 
redisplay.window When an update event occurs, redisplay.window will 
be executed with my.window temporarily set as the graphport. 


OPEN file* -- 
Refer to the File System glossary. 


OPEN.DEVICE name$\fcb -- 


Attempts to open the device named name$ with fcb. Aborts on error. 


OPEN.PORT  wptr -- 


Initializes the graphport at wptr. 


ODENPRINTER --- 
Opens the printer device driver. 


OPEN.SQUND --- 
Opens the sound device driver. 


OPEN.RSRC file? -- 
See File System glossary. 


OPTIONS.MENU --- 
Installs the MacFORTH options menu on the Menu Bar. 
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OR ni\n2 -- n3 
Leave n3 as the bitwise inclusive-OR of two numbers. 


OS. TRAD n-- 
Macintosh operating system trap call compiler. Refer to the Advanced 
Topics chapter toolbox interface discussion. 


OTHERWISE  --- 
Marks the beginning of the "false portion" of an executable conditional 
structure. Used in the form — IFTRUE ... OTHERWISE ... IFEND Equivalent 
in control flow to ELSE in the compiled IF .. ELSE ... THEN construct. 
See ELSE . 


OUTLINE -- 08 
Constant bit mask for outline text attribute. 


OVAL x1\y 1\x2\y2\[pattern]\mode -- 


Draws oval within rectangle x1 y1 x2 y2 according to mode. [PATTERN] 
present for pattern mode. 


OVER ni\n2 -- ni\n2\n1 
Copy the second stack item over to the top of the stack. 


PAD -- addr 
Returns the address of a scratchpad area. Used to hold character 
strings for intermediate processing, as well as a scratchpad area for 
other tasks. The minimum capacity of PAD is 64 characters. 


PAGE — — 


Outputs a form feed to the current display devices. This clears the 
console display and ejects a page on any attach- ed printers. 


PAGEDOWN  --n 
Refer to Level 2 controls documentation. 


PAGE.UP --n 
Refer to Level 2 controls documentation. 


PAINT -- | 
QuickDraw shape mode attribute shape will be drawn filled with pen 
pattern. 
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РАТВІС sen 
Constant specifying bit transfer mode. Current pattern is used to clear 
corresponding bits in destination. 


PATCODY sen 


Constant specifying bit transfer mode. Current pattern is directly 
copied into destination. 


PATOR --h 


Constant specifying bit transfer mode. Currrent pattern is OR'ed into 
destination. 


PATTERN pattern -- pattern\4 


QuickDraw shape mode attribute shape will be filed with supplied 
pattern. 


PATXOR == 


Constant specifying bit transfer mode. Current pattern is exclusive 
OR'ed into destination. 


PAUSE --- 
Stub for source compatability with later products. 


PEN.NORMAL  -- 


Resets state of pen in current graphport: pensize = 1,1  penmode = 
patcopy репраї = black 


PENMODE n-- 
Sets pen transfer mode. Allowable modes include: PATCOPY PATXOR 
NOTPATCOPY NOTPATXOR PATOR PATBIC МОТРАТОВ NOTPATBIC See 
individual modes for definition of function. 


DENPAT addr -- 
Sets the pen pattern for current graph port. 


PENSIZE width\height -- 
Sets pen size to width and height scaled by XYSCALE. 


DFA token -- pfa 
Convert the token of a compiled definition to its рѓа. "p-f-a" 
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РІСК п1--п2 
Return the stack item n1 items from the top (not including n1). For 
example, 2 PICK is functionally equivalent to OVER ; 1 PICK is 
functionally equivalent to DUP . An error condition exists for n1 less 
than 1, system response 15 to leave n! on the stack. 


PLAIN --n 


Constant for no text enhancements. 


PLAY addr -- 


Passes addr+2 to the Macintosh sound generator. Addr contains 16-bit 
length of the waveform description record at addr*2 on. System will 
hang until the sound is completed. 


PLOT.ICON . rect nandie -- 
Plots icon at handle within supplied rectangle. 


PNTR -- addr 
User variable containing the address to which characters are 
transferred. "p-n-t-r" 


POCKET -- addr 


User area array used for parsing text strings from the input stream. 
WORD uses this 256 byte area when extracting strings from the input 
stream. If the task does not compile text, this area may be user 
defined for further user variables. 


POINT position mode\position\file* -- 
See File System glossary. 


POINT>XY point -- x y 


Unpacks point into x under y. 


POLYGON handle -- 
Refer to Level 2 advanced graphics documentation. 


POSITION.FIXED 
** Refer to the File System chapter glossary ** 
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POST.EVENT  event.code\event.msg -- 
Places event of type event.code into event queue with message of 
event.msg. BE CAREFUL not to post events for such things as activate or 
update events as these are sure to crash the system. Normally posted 
events should be limited to user designated range 12-15. 


PREV -- addr 
Returns the address of the variable which points to the disc buffer 
most recently referenced. The UPDATE command marks this buffer as 
changed so it is later written to disc when needed. 


PRINT addr\cnt -- 
Sends the string of characters starting addr for cnt bytes to the 
printer. 


PRINT.BITS — t\i\p\r\bit map -- 
Prints the pixels within the top, left, bottom, right rectangle of bitmap 
to an Apple Imagewriter printer. bitmap is wptr*2. 


DRINT.FCB  -- addr 
Returns the address of the printer device driver FCB. 


PRINT.SCREEN --- 


Prints the contents of the screen to the Apple Imagewriter printer. 


PRINT. WINDOW --- 
Prints the contents of the currently active window to the Apple 
Imagewriter printer. 


PRINTER . --addr 


Returns address of printer resource variable. іп single user systems, 
this variable is used to turn on and off duplicating screen output to the 
printer. PRINTER ON turns on printer PRINTER OFF turns off printer 


PRINTER.ONLY  -- addr 
Returns the address of the device console table which directs output to 
the printer. 


PTINRECT point\rect.addr -- flag 
Returns true if point is within rectangle. 
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PURGABLE handle -- 
Marks handle as purgable by memory manager. 


PUSH.BUTTON nt\n2\n3\n4\n5 -- 
Refer to Level 2 controls documentation. 


PUT.SCRAP addr\cnt\res type -- io result 
Writes cnt bytes from addr to the desk scrap and marks it with res 
type. 


QUERY m 

Accepts input of up to 80 characters from the keyboard. А carriage 
return will stop input when encountered. The string is stored in the 
terminal input buffer. Two nulls are appended to the input stream and 
CNT contains the actual number of characters input. A space is output 
when a CR is entered. WORD may be used to accept text from this 
buffer as the input stream by setting >IN and BLK to zero. See ТІВ , 
WORD , М, and BLK. 


QUIET -- addr 
User variable mode switch. When non.zero, indicates the buzzer is not 
to sound when a user-defined error condition is encountered (ie. using 
ERROR" ). QUIET ON Enables Quiet mode. QUIET OFF Disables Quiet 
mode. 


QUIT sem 
Stops execution of the current task, clears the return stack and returns 
contro! to the terminal. No message is given and the data stack is 
preserved. 


R# -- addr 
User variable which contains block offset to location of latest ERROR. 


R/W addr\block\flag -- 
The mass storage read/write primitive. addr specifies the source or 
destination block buffer, block is the number of the referenced block, 
and flag determines the operation to take place (0 implies write, 1 
implies read). Execution is vectored through the User Variable (R/W) to 
the user spec- ified read/write handler. 


RO -- addr 
User variable containing the initial location of the return stack. See 
ЕРІ, "r-zero" 
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R> --n 
Pops the top item off of the return stack and pushes it onto the data 
stack. MUST be matched with a»R within the same colon definition or 
an unpredictable error will occur. "r-to" See ›В. 


R>DROP EE 


Code routine which drops the top item from the return stack. 
"r-from-drop" 


Re --n 
Copies the top of the return stack to the data stack. Should only be used 
between a»R ... R> sequence. 'r-fetch" 


RANGE n\min\max -- nNbool 


Performs a range check for min <= n <= max. Bool is the boolean result 
(true if min <= n <= max). 


RADIO.BUTTON ni\n2\n3\n4\n5 -- 
Refer to Level 2 controls documentation. 


RANDOM --n 
Returns a psuedo random number between 0 and 32767. See SEED 


RANGE.OF ni NminNmax -- [n1] or [] 
Marks the beginning of a conditional branch within a case statement. 
Used in the form: 
CASE ... 
«min» «max» RANGE.OF ... ENDOF 
ENDCASE 
If ni is <= max and >= min, all arguments are DROPped and execution 
continues through ENDOF and then skips to the next ENDCASE . If n1 is 
not with min and max, min and max are DROPped and execution 
continues after ENDOF . See OF , ENDOF , CASE , and ENDCASE . 


RDRAW dx\dy -- 
Relative draw. Draws from current XY position to XY position at x * dx, 
y * dy dots to the right of and below the pen are modified according to 
the pen size, shape, pattern and mode. 


READ.FIXED = addr\rec*\file* -- 
See File System glossary. 
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READ.TEXT = addr\cnt\file* -- 
See File System glossary. 


READ. VIRTUAL addr\cnt\file addr\file* -- 
See File System glossary. 


REAL.FONT?  font**size -- flag 


Returns true if font is an actual rather than synthesized font. 


RECOVER Е 
Recovery routine for errors in the floppy boot ROM handler. 


RECOVER.HANDLE ptr -- handle 


Returns handle for address if address corresponds with a valid 
relocatable data structure in the heap. Reference APPDEVDOC: 
RecoverHandle 


RECT t\I\b\r -- 


Creates rectangle data structure which will place it's address on the 
Stack when executed (like variable ). 


RECTANGLE — xi\y1\x2\y2\[pattern addr]\mode -- 
Rectangle according to mode. 


REG.SET -- addr 


Returns the address of a register snapshot array. Contains a snapshot 
of the 68000 registers and the last 16 bytes of the parameter and 
return stacks when the last exception occurred. See (EXCPT) . 


REGION 
Refer to Level 2 advanced graphics documentation. 


RELEASE add -- 


Multitasking primitive which releases a resource. If addr, a resource 
variable, contains the current task's status address, the resource 
variable is RELEASEd (set to zero), otherwise no action is taken. 


REMOVE  file* -- 
Refer to the File System chapter glossary. 


RENAME file$ V ile* -- 
Renames the specified file (by number) with the specified name. 
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ВЕРЕАТ Se 


Terminates a finite control structure. Used within a colon definition in 
the form: 

BEGIN... WHILE... REPEAT 
Returns control to the word following the corresponding BEGIN. The 
error message CONDITIONALS NOT PAIRED indicates the structure is 
missing either a BEGIN or WHILE command. 


RESIZE.HANDLE handle\size -- flag 
Attempts to resize handle in heap. Returns non-zero if unsuccessful. 
Reference APDEVDOC: realloc.handle 


RESIZE.OBJECT size -- 
Attempts to resize the current object space. Ап error message results 
if insufficient heap space exists or if the requested size is unable to 
contain the current object image. Use the ROOM function to determine 
the current object space allocation. 


RESIZE.YOCAB size -- 
Attempts to resize the current vocabulary to the requested size. An 
error message is generated if insufficient heap space is available or if 
the vocabulary is currently larger than the requested size. 


RESUME --- 
Terminates a user specified error handler. See ON.ERROR 


RETRY -- addr 


User variable pointing to the most recently specified error recovery 
frame. See ABORT” , RECOVER , ON.ABORT . 


REWIND file* == 


See File System glossary. 


RMOVE  dx\gy -- 


Relative move. Moves the current pen position to current position plus 
the supplied offset. 


ROLL ni -- n2 
Extracts the stack item n! from the top (not including n1). Тһе 
remaining stack items are moved into the vacated position. For 
example, 3 ROLL is equivalent to ROT 2 ROLL is equivalent to 
SWAP Error if n1 is less than or equal to one with no action taken. 
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ROOM шен 

Displays the amount of remaining memory available for use. Тһе 
message displayed is хххххххх Object Bytes Available уууууууу 
Current Vocabulary Bytes Available 72227222 Heap Bytes Available 
Where XXXXXXXX represents current object area ( pointed to by 
OBJECT.HANDLE), yyyyyyyy represents the amount of space in the 
CURRENT vocabulary (pointed to by CURRENT) and zzzzzzzz represents 
the total amount of space remaining in the HEAP. 


ROT п1\п2\п3 --n2W3WMM БИН 


Rotates the top three stack items. The third item is brought to the top. 
"rote" 


RP! = 
Initializes the return stack to point to the value contain- ed in the user 
variable RO . "r-p-store" 


RPe -- addr 
Returns the address of the top of the return stack. 


RRECTANGLE — x1\y1\x2\y2\ch\cw\[pattern]\mode -- 
Draws rounded rectangle with ch by ch radius rounding [pattern] 
present for pattern mode. 


RSRVMEM size -- iorsit 


Requests memory manager to reserve size bytes in heap for a upcoming 
relatively static or locked data structure. See Apple's Developer's 
documentation for further details. Reference: ResrvMem 


RST.PRINTER --- 


Resets the Apple Imagewriter printer by sending an esc c sequence. 


S0 -- addr 


User Variable containing the address of the top of the stack when it is 
empty. "5-2его" 


SÁVE-BUFFERS --- 


Writes all UPDATEd blocks to disc. The contents of the block buffers 
remain unchanged and available. See BLOCK , UPDATE , and FLUSH . 
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SCALE ni\n2 -- n3 
Arithmetically shifts n1 according to the value of n2. If n2 is negative, 
n1 is shifted right, if n2 is positive, nt is shifted left. The absolute 
value of n2 determines the actual shift. For example: :NEW.2* (n-- 
n*2) 1 SCALE ; is equivalent to 2* . Error if n2 is greater than 31, 
system responds by leaving n3 as zero. 


SCALE? XY X1\Y1 -- X2\Y2 
Х2= х1 * 100 / XSCALE Y2 = y1 * 100 / YSCALE 


SCALE? Y n -- 1% 100\YSCALE 
N is scaled to Y. 


SCAN.FROM  -- addr 
Computes the address within the input stream of the next word. addr is 
either ТІВ + »IN or BLK + »IN if BLK is non- zero. See BLK , ТІВ , and >IN. 


SCR -- addr 
User variable containing the number of the screen most recently LISTed 
or EDITed. “s-c-r" 


SCRAP.COUNTER --n 


Returns the number of times the desk scrap has been zeroed. 


SCRAP HANDLE -- adar 


Returns the address containing the desk scrap handle. 


SCRAP.LEN -- addr 


Returns the address containing the length of the desk scrap. 


SCRATCH -- addr 


User variable used to hold the most recently referenced option bit 
switch. All switch references set the appropriate bit at this location. 


SCREEN.BITS -- addr 
Returns the address of the rectangle which contains the maximum 
screen coordinates. 


SCROLL --- 
Scrolls the current window up the number of pixels contained in the 
current line height of the window. See GET.LINE.HEIGHT LINE.HEIGHT | 
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SEED -- addr 
Returns the address of the random number generator seed. 


SELECT file* -- 
Refer to the File System glossary. 


SCROLL.LEFT/RIGHT -- n 
Constant bit mask for horizontal scroll control window attribute. 


SCROLL.UP/DOWN --n 


Constant bit mask for vertical attribute. 


SELECT. WINDOW  wptr -- 


Causes wptr to be activated as currently active window. 


SEND BEHIND  wotr\behind wptr -- 
Re-links the window specified by wptr behind the window specified by 
behind wptr. 


SET.CONTROL n1\n2-- 
Refer to Level 2 controls documentation. 


SET.CONTROL.MAX ni\n2 -- 


Refer to Level 2 controls documentation. 


SET.CONTROL.MIN ni\n2 -- 
Refer to Level 2 controls documentation. 


SET.CONTROL.RANGE ni\n2\n3 -- 


Refer to Level 2 controls documentation. 


SET.CURSOR . cursor address -- 


Sets cursor to supplied address. ( O indicates default NW arrow). 


SET.EOF 
Refer to the File System chapter glossary. 


ЗЕТ.ҒЕМСЕ -- 
Sets the FENCE to point to the current dictionary offset within the 
relocatable vocabulary structure. FENCE is stored at CURRENT @@ 8+ . 
The current vocabulary offset pointer is stored at CURRENT @@ 
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SET.FILE.INFO file* -- 
Refer to the File System glossary. 


SET.ITEM$ —item\item$\menuid -- 
Replaces current menu item string with supplied string. 


SET.ORIGIN xW -- 


Establishes window origin in QuickDraw native screen coordinates. 


SET.RECLEN гес len\file* -- 
See File System Glossary (in File System chapter). 


SET.STRING . handle\string.addr -- 


Places string into handle. Prior handle contents are lost. 


SET.WTITLE  str.addrNwptr -- 


Sets window title to supplied string. If window is visible title will be 
updated on the screen. 


SETUP.SERIAL  * stop bits parity V* data bits\paud rate V. CB addr -- 
Sets up the serial interface. Refer to the Printer/Serial Interface 
chapter. 


SHADOW -- 16 


Constant bit mask for shadow text attribute. 


SHOW starting screen* ending screen* -- 
Generate a listing of TRIADs between the starting and end- ing screen 
numbers given. See TRIAD. 


SHOW.CONTROLS wotr -- 
Displays controls for window. 


SHOW.CURSOR -- 
Decrements cursor level. When cursor level is 0, cursor is visible. Use 
INIT.CURSOR to reset cursor level to 0. See HIDE.CURSOR 


НОМ РЕМА -- 
Increments pen level in current graphport. When pen level is 0, drawing 
functions are displayed on the screen. This is used when defining 
regions, or pictures where the pen is used to depict a region or picture 
without actually drawing the outline on the screen. 
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SHOW. WINDOW = wptr -- 
Sets visible flag in window at wptr. Visible portions of window will 
appear on display. 


SIGN n-- 
Insert the ASCII negative sign into the pictured numeric output string 
if n is negative. *** Note: You must retain the sign of the original value 
being converted and place it on the stack before executing SIGN. Error 


if used outside of <* and *> pair with no system response. See <* and 
#5 А 


SIN angle -- SINE * 10000 
Returns integer sine of angle * 10000. ( 4 digit precision). 


SIZE BOX -- 
Constant bit mask for size.box window attribute. 


SIZE.WINDOW  wptr -- 


Recalculates window content, region, allocating space for only desired 
scroll bars. 


SMUDGE ok 
Used during word definition to toggle the "smudge bit" in a definition's 
name field. This prevents the incomplete definition from being found 
during dictionary searches, unti! compilation is completed without 
error. 


SOUND.FCB -- addr 


Returns the address of the sound driver FCB. 


SPI S 
Procedure to initialize the stack pointer to SO. See 50. "s-p-store" 


SPe -- addr 
Returns the address of the top of the stack just before SPe was 
executed. "s-p-fetch" 


SPACE x 


Displays an ASCI! space on the current output device. 
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SPACES n-- 
Outputs n spaces to the current output device. No action is taken for n 
less than one. 


SORT (п-- square root ) 
Computes a 16 bit square root from 32 bit square n. 


SRCBIC -- 3 
QuickDraw bit transfer mode. Bits set in the source pattern are cleared 
in the destination. 


SRCCOP¥Y --4 
QuickDraw pattern transfer mode. All bits set in the source pattern are 
copied to the destination. 


SRCOR -- 4 
QuickDraw pattern transfer mode. Bits set in the source pattern are 
set in the destination. 


SRCXOR 54% 


QuickDraw bit transfer mode. Bits set in the source pattern are 
inverted in the destination. 


STACK.ERROR (flag -- ) 


Aborts with " not enough stack items" error message if flag is true. 


START.FLAG --п 
Constant used by MacFORTH to determine if the system has been booted. 


STATE -- addr 
User variable containing the compilation state. A non-zero value 
indicates compilation mode, zero indicates execution. 


STATUS -- addr 
Returns the base address of the current task's user area. 


STILLDOWN — -- flag 


Returns true while mouse is still down. ІТ mouse comes up and goes 
down between samples, returns false. 


STRING. WIDTH addr -- n 
Returns the width, in pixels of the string at addr. 
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SWAP ni\n2 -- п2\п! 
Swaps the top two stack items. 


SYSFILE  -- addr 


FCB address used for system related file functions. 


SYS.WINDOW -- wptr 
Default interactive MacFORTH Window. 


SYSBEEP duration -- 


Sounds the buzzer for the number of specified 1/60 sec ticks. 


SYSPARMS -- addr 


Returns the low memory address of data copied from battery backed-up 


memory. 


SYSTEMEDIT n--f 


Allows desk manager an opportunity to respond to editing functions 
pressed while a desk accessory is active. If flag is true, then event was 
handled by desk manager, and no user action is required. Refer to 


Supplied Macforth editor source code for examples. 


TAB.STOPS  --addr 


Variable containing the number of spaces between tab stops. 


TEACTIVATE 
Refer to Level 2 TE interface documentation. 


TECALTEXT 
Refer to Level 2 TE interface documentation. 


TECLICK 
Refer to Level 2 TE interface documentation. 


TECOPY 
Refer to Level 2 TE interface documentation. 


TECUT 
Refer to Level 2 TE interface documentation. 


TEDEACTIVATE 


Refer to Level 2 TE interface documentation. 
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TEDELETE 


Refer to Level 2 TE interface documentation. 


TEDISPOSE 


Refer to Level 2 TE interface documentation. 


TEIDLE 


Refer to Level 2 TE interface documentation. 


TEINSERT 


Refer to Level 2 TE interface documentation. 


TEKEY 


Refer to Level 2 TE interface documentation. 


TENEW 


Refer to Level 2 TE interface documentation. 


TEPASTE 


Refer to Level 2 TE interface documentation. 


TERECORD | 


Refer to Level 2 TE interface documentation. 


TESCROLL 


Refer to Level 2 TE interface documentation. 


TESET JUST 


Refer to Level 2 TE interface documentation. 


TESET SELECT 


Refer to Level 2 TE interface documentation. 


TESET ТЕХТ 


Refer to Level 2 TE interface documentation. 


TEST.CONTROL 


Refer to Level 2 TE interface documentation. 


TEUPDATE 


Refer to Level 2 TE interface documentation. 
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ТЕХТ.ВОХ 
Refer to Level 2 TE interface documentation. 


TEXT.CLICK 
Refer to Level 2 TE interface documentation. 


TEXT.FIELD 


Refer to Level 2 TE interface documentation. 


TEXT.RECORD --п 
Constant bit mask for window attribute which indicates that a text 
record is pointed to by refcon. 


TEXTFONT  n-- 


Selects text font. O reserved for system, 1| default for user 
applications. MacFORTH uses #4 (fixed space) for text editing. 


TEXTMODE txmode -- 
Sets Current text bit transfer mode. Valid modes include: SRCCOPY 
SRCOR  SRCXOR SRCBIC NOTSRCCOPY NOTSRCOR NOTSRCXOR 
NOTSRCBIC 


TEXTSIZE size -- 
Sets text size for current graphport. Max value is 50. MacFORTH 
Windows maintain LINEHEIGHT for scrolling and general text output. If 
you set textsize greater than LINE.HEIGHT you will overwrite data on 
the prior line. 


TEXTSTYLE n-- 
Selects text style. Each of the first 7 bits enable a particular text 
enhancement. Bit O = BOLD(1) Bit 1 = Italic(2) Bit 2 = Underline(4) 
Bit 3 = Outline(8) Bit 4 = Shadow(16) Bit 5 = Condense(32) Bit 6 = 
Extend(64) Just sum up the appropriate values to get the desired style 


THEN --- 
Marks the end of а conditional structure. Used within а colon definition 
in the form: IF ... ELSE ... THEN or IF ... THEN The word following 
THEN 15 executed after the code for IF or ELSE (if present). The error 
message CONDITIONALS NOT PAIRED indicates there was no preceding 
IF. 


THIS.CONTROL -- addr 
Refer to Level 2 controls documentation. 
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ТНІ5.РАКТ -- addr 
Refer to Level 2 controls documentation. 


THRU starting screen*\ending screen* -- 


Loads screens between and including the starting and ending screen 
numbers given. 


ТІВ ~- addr 
User variable containing the address of the terminal input buffer. 


TICKCOUNT -- tick.count 


Returns real time clock ticks. 


TO.HEAP handle —- 


Returns a handle to the heap manager. 


TOGGLE addr\mask -- 
Complements the 8-bit value in addr by the bit mask given. 


TOGGLE.CONTROL --n 


Refer to Level 2 controls documentation. 


TOKEN.FOR  -- token 
Inputs the next word in the input stream and converts it to a token. If 
no token is found, 0 is returned instead. 


TOKEN»ADDR token -- addr 
Converts a relocatable token to a physical address. 


TONE = duration\volume\frequency * 10 -- 
Outputs a tone via the sound generator. duration (0-255) is 1/60ths of 
a second, volume (0-255) is a relative volume, and frequecy is 
hertz* 10. 


TRACE -- addr 
Compiler Mode switch. When enabled, the compiler emplaces the token 
(TRACE) into the dictionary prior to every token that would otherwise 
normally be compiled. At run-time, (TRACE) tests the state of DEBUG, 
and if True, displays the stack contents with .5 and the NAME of the 
following token. (See (TRACE), DEBUG, and ?TRACE) TRACE ON 
Enabled trace mode. TRACE OFF Disabled trace mode. 
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ТКАСЕ.ТОКЕМ -- addr 


REturns the address of the variable containing the token to be compiled 
when the trace switch is on. See TRACE 


TRACK.CONTROL n1\n2 -- flag 
Refer to Level 2 controls documentation. 


TRIAD screen* -- 


Displays the triad containing screen*. The three screens include 
screen*, beginning with a screen number evenly divided by three. 
Output is suitable for source text records and can be used to replace 
only updated screens in the master listing. 


TRUE ---1 
Constant for boolean true value. 


TRUNK -- addr 
User variable containing the task unique address of the task's FORTH 
vocabulary. 


TRY --- 
Pushes the recovery stack frame into the return stack. See RECOVER , 
ABORT" . 


TYPE addr\cnt -- 
Outputs a string. Transmits cnt characters beginning at addr to the 
current output device. No action is taken for cnt less than 1. 


UNDERLINE --04 
Constant bit mask for underline text attribute. 


UNIQUE.MSG -- адаг 
User Variable containing flag which when true, causes CREATE to issue 
the warning message: ISN'T UNIQUE when a newly created word name 
field is not unique within CONTEXT and TRUNK . 


UNLOAD.SCRAP -- io result 
Writes the desk scrap to disc under the file name “CLIPBOARD”. 


UNLOCKFILE хх Refer to the File System chapter glossary ** 
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UNLOCK.HANDLE handle -- 
Marks relocatable heap data structure as unlocked. See Apple 
Developer's documentation for further details. Reference: HUnlock 


UNTIL flag -- 

Terminates a finite control structure. Within a colon definition, marks 
the end of a BEGIN .. UNTIL loop which will terminate based on the 
value of flag. If flag is true, the loop is terminated and control is 
passed to the word following UNTIL . If flag is false, the loop continues 
and control is passed back to the word following BEGIN. BEGIN ... UNTIL 
loops may be nested freely as long as each BEGIN is paired with an 
UNTIL or WHILE..REPEAT . The error message CONDITIONALS NOT 
PAIRED 1 may indicate an UNTIL is not paired with a BEGIN . See BEGIN , 
WHILE , and REPEAT . 


UPBUTTON  --n 


Refer to MacFORTH Level 2 controls documentation. 


UPDATE -- 
Mark the most recently referenced block buffer as modified. The block 
will subsequently be written to mass storage when its buffer is needed 
for storage of a different block, or when SAVE-BUFFERS or FLUSH is 
executed. 


UPDATEEVENT --n 


Constant event.code returned by DO.EVENTS on a update event. 


UPPER addr\cnt -- 
Converts lowercase characters to uppercase. Any lowercase ASCII 
alpha characters in the string at addr for cnt bytes are converted to 
uppercase ASCII alpha characters. 


UPPER.LEFT (--) 


Sets the graphics XYOFFSET to the upper left corner of the current 
window. 


USE -- addr 
Variable containing the address of the block buffer to use next. This is 


the least recently written block buffer. 
USE" --- 
Refer to the File System glossary. 
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USER n-- 
User variable defining word. Used in the form: n USER <name> which 
creates a user variable «name». n is the cell offset within the user 
area where the value of «name» is stored. Execution of «name» leaves 
its absolute User Area storage address. 


VARIABLE -- 
Defining word to create variable definitions. Used in the form: 
VARIABLE «name» to create a dictionary entry for «name» and allot four 
bytes for storage in the parameter field. When «name» is later 
executed, it will place the pfa of «name» on the stack. 


VBAR.BOUNDS мрїг -- t\!\b\r 


Refer to MacFORTH Level 2 controls documentation. 


ҮЕСТОВ ( x1\y1\x2\y2 -- ) 
Draws a line from X1,Y1 to X2,Y2. 


VERSION Eum 
Types the current software version number and CSI copyright notice. 
Used in TRIAD and COLD . 


VERSION?  --n 


Constant containing the specific version of the software release. 


YIRTUAL -- position mode 
See File System glossary. 


VOCABULARY size -- 

A defining word to create a new vocabulary. Used in the form: 
VOCABULARY «name» to create (in the CURRENT vocabulary) a dictionary 
entry for «name», which specifies a new ordered list of word def- 
initions. Subsequent execution of «name» will make it the CONTEXT 
vocabulary. When «name» becomes the CURRENT vocab- шагу (see 
DEFINITIONS), new definitions will be created in that list (vocabulary). 
size represents the desired initial size of the vocabulary. 


Wi w\addr -- 
Stores the 16-bit value w at addr. "w-store" 


w* ni\n2 -- n3 


Returns the signed 32-bit product of the signed 16-bit numbers n1 and 
n2. "w-star" 
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W, w-- 
Emplaces w into the dictionary. Stores the 16-bit value in the 
dictionary at the current dictionary pointer value and increments the 
dictionary pointer by 2. 


W. ATTRIBUTES attributes\wptr -- 
Sets window attributes before window is displayed. Valid attributes 
include: — CLOSE.BOX NOT.VISIBLE — SIZE.BOX SCROLL.UP/DOWN 
SCROLL.LEFT/RIGHT TEXT.RECORD 


М.ВЕНІМО [wptr]or[-1)or[0] -- 
Sets window order before window is displayed. Window will be placed 
behind wptr when it is displayed. O indicates the window should be 
placed at the front of the list, -1 indicates the window should be 
placed at the end of the list. 


W. BOUNDS t\\b\r\wptr -- 
Sets bounds rectangle for window before it is displayed. 


W.LINKAGE --addr 
Variable containg the latest pointer to a linked list of windows in 
chronological order. This list is traversed during FORGET to close any 
window which is about to be forgotten. 


W TITLE $addrNwptr -- 


Sets title for window before window is displayed. 


W ТҮРЕ w.type\woptr -- 
Sets window type for window before it is displayed. 


W/ п1\п2 -- quotient 
Divides 32-bit n1 by 16-bit n2 leaving a 16-bit quotient. This routine 
uses the 68000 signed divide hardware instruc- tion for speed. 
"w-divide" 


W/MOD n1\n2 -- remainder Nquotient 
Divides the 32-bit signed number n1 by the 16-bit signed number n2, 
leaving the 16-bit remainder and quotient. This routine directly 
utilizes the 68000 signed divide hardware instruction. "w-divide-mod" 


W>FUNCGL n-- 
Macintosh toolbox function call compiler. Refer to the Advanced Topics 
toolbox interface discussion. 
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ММТ i= 
Macintosh toolbox function call compiler. Refer to the Advanced Topics 
toolbox interface discussion. 


We addr -- w 
Return the 16-bit value at addr. The error message “Address Error Trap 
at xxxx' indicates addr is odd. See «We» "w-fetch" 


WAIT n-- 


Stub used to maintian source compatability with later products. 


WAIT.MOUSE.UP -- flag 


Waits for mouse button to come up. Returns false if button is already 
Up. 


WATCH -- addr 


Returns address of watch cursor array. 


WCONSTANT n-- 


16 bit constant defining word. When later executed, pushes signed 16 
bit value into the stack. 


WHILE flag -- 
Marks the beginning of the "true portion" of a finite loop construct. 
Used in a colon definition in the form: 
BEGIN ... WHILE ... REPEAT 

On a true flag, continue execution through to REPEAT , which then 
returns control back to the word following the BEGIN. On a false flag, 
skip to the word following the REPEAT , exiting the control structure. 
The error message . CONDITIONALS NOT PAIRED indicates the WHILE 
was not nested within a BEGIN .. REPEAT control structure within the 
current definition. 


WHITE -- addr 


Returns address of white pattern. 


WINDOW wptr -- 
Selects WPTR for output. 


WLIT == 


Pushes the next 16 bit value in the interpretation stream into the stack 
and advances the interpreter pointer over it. 


MacFORTH Glossary Page 13 - 89 June 3, 1984 


WMOD ni\n2 -- remainder 
Divides 32-bit ni by 16-bit n2 leaving the 16-bit remainder of the 
division. This routine uses the 68000 signed divide hardware 
instruction for speed. "w-mod" 


WORD char -- addr 

Parses a string from the input stream. Receive characters from the 
input stream until the non-zero delimiting character is encountered, or 
the input stream is exhausted, ignoring leading delimiters. The 
characters are stored as a packed string with the character count in 
the first position. The actual delimiter encountered (char or null) is 
Stored at the end of the text string, but not included in the count. If 
the input stream was exhausted as WORD was executed, a zero length 
string will result. The address left on the stack points to the beginning 
of the string (the count byte), the text is placed within the user area at 
POCKET . An error condition exists if the string length exceeds 255, 
leaving only the last 255 characters available. An unchecked error 
occurs if the char given is 0. 


WORDS ds 
List the CONTEXT vocabulary starting with the most recent definition. 


WRITE.FIXED — addr\rec*\file* -- 
See File System glossary. 


WRITE.TEXT = addr\cnt\file* -- 
See File System glossary. 


WRITE.VIRTUAL addr\cnt\file addr\file* -- 


See File System glossary. 


XLATE х1\у1 -- x2\y2 
Rotates, scales and translates point XY according to the current 
window XYPIVOT (angle), XYSCALE , and XYOFFSET . If cartesian flag is 
true, Ү coordinate is negated. Х2,Ү2 are expressed in QuickDraw native 
coordinates relative to the current window. 


XOR ni\n2 -- n3 
Leave the bitwise exclusive-or of n1 and n2. "x-or" 


XY>POINT — x Vy -- point 
Packs x under y into 32 bit point. Y resides in high order word, x in low 
order. 
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XYAXIS ae 
Displays а 100 x 100 cross hair at the current screen огі- gin. Positive 
х and y are marked with '*', negative with -. 


XYOFFSET х\у-- 


Sets the offset to the center of the coordinate system to x dots from 
the right and y dots from the top of the current window. | 


ХҮРІҮОТ angle -- 


Causes all subsequent line and dot coordinates within the current 
window to be pivoted by angle degrees. Shapes are not pivoted. 


XYSCALE XSCALENYSCALE -- 
Causes all points in the current window to be scaled by X & Y. Full 
scale is 100 100. To increase the size of the image. Increase the scale 
factors above 100%. 


ZERO.SCRAP -- io result 
Zeroes the desk scrap and increments SCRAP.COUNTER . 


[ ele 
Begin execution mode. The text from the input stream is subsequently 
executed. See]. "left-bracket" 

[COMPILE]  --- 
Forces compilation of an immediate word. Used in a colon- definition 
in the form: [COMPILE] «name» Forces compilation of the following 
word. This allows compilation of a compiling word when it would 
otherwise be executed. "bracket-compile-bracket" 

T 
Begin compilation mode. The text from the input stream is 
subsequently compiled. See | “right bracket" 

Lx 


Accepts and ignores comments from the input stream until the next 
delimiting right brace. Very similar in usage to ( , but can be used 
when multiple occurrances of parentheses are desired in a comment. 
For example: 

{ ххх (ххх) хххх (ххх) XXX J 
is a valid comment. "brace" 
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Alphabetic MacFORTH Glossary Index 


ТЫ ПП) 
IPEHSTRTE 
IPOINT 
{RECT 
ISR 
"BLKS 
"DRTR 
“тн 
"PICT 
"TEXT 
ж 

1; 

sF ILES 
sF IND 
85 
$RDDR 
$LIT 


' INTERPRET 

( 
(10N.RCTIURTE) 
(10N .UPDRTE) 
($LIT) 
((RBORT)) 
((ERROR)) 
(*L0OP) 

(.") 

(.5) 
(;CODEe) 
(CODE) 
(RBORT") 
(RBORT) 

(D0) 
(ERROR") 
(ERROR) 
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09  (ENCPT) 
09 (FIND) 
09 (GET) 
09  (GET.FILE) 
09  (LIHE) 
09  (LIHE.TO) 
09 (LOOP) 
09  (MEMU.SELECTION:) 
10 (MOUE) 
10 — (HOUE.TO) 
10 (OF) 
10 — (OH.ERROR) 
10 — (PEHSI2E) 
10 — (PUT.FILE) 
10  (R/ID 
10 — (TENTSI2E) 
10 (TRACE) 
11 (TRACK.CONTROL) 
11 (WORD) 
11 CONSTANT 
11000! 
10% 
11 %/ 
11 */M0D 
1. 
12 +! 
12  +CARTESIAN 
12  «FIHD 
12  «FOLLOHER 
12 +HBAR 
12 «LORD 
13  «L00OP 
13  «HRN.BLKs 
13 +0N. ACTIVATE 
13 +00. UPDATE 
13 +POINT 
13 +PRINTER 
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13 +REC.SIZE 
13 +SCR* 
13 +THAU 
14 +TUISRECT 
14 +UBAR 
14 +H. ATTRIBUTES 
14 +H.BEHIND 
14 +H. LINK 
14 +H. TYPE 
14 — *HBOUHDS 
15  «HCBOUHDS 
15  «WUFILE.PTR 
15  *HLIHE.HEIGHT 
15 — «HREFCON 
15 +NTITLE 
15 *NVBIRS 
15 +KVOFFSET 
15 +KYPIVOT 
16 +КҰР05 
16 +¥SCALE 
16 , 
16 " 
16 - 
16 --> 
16 -1 
16 -2 
16 -3 
17 -<4 
17 -FIND 
17 -FOUND 
17 -KEYBOARD 
17 -LATEST 
17 -POINT 
17  -TEXT 
18 -TRAILING 
18 
18 g 
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. ABORT 
DATES 
FILE. ERROR 
.R 

‚5 
TIMES 
«ТҮРЕ 

/ 

¿noD 

0 

0< 

0= 

0› 
OBRANCH 


12HOURS 
16* 

16+ 

16- 

16/ 
1DAY 
1HOUR 
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=CELLS 
=DROP 

> 

>FCB 

>In 

>JSR 

>LIST< 

>R 

ЖЕСТ 
>5У5.Ш1Н00И 
МНЕ 

Жек 

? 

7ALIGN 
?BLOCKS.F ILE 
?CONP 

?CSP 
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7DAYS 

?DUP 

?EOF 
TEVENT 
EXEC 

?F ILE. ERROR 
?FILES 
HEAP .S12E 
? iN. CONTROL 
?KEVSTROKE 
?LORDIHNG 
10PEN 
?PRIRS 
?PUNCT 
28004 
?SECONDS 
?SÜ0UHD 
?STRCK 
?ТЕНН ІНГІ. 
?TRRCE 
?UORD 

е 

ee 

eCLOCK 
eEUEHT 

eF ILE. NAME 
@ INIT 
enOUSE 
eMOUSE . DH 
eNOUSEXY 
ePEN 
ePEHSTRTE 
ePOINT 
eRECT 

eSR 

RBORT 
RBORT" 
ABORT . EVENT 
RBS 


ACTIVATE. EVENT 
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29  RDD.BLOCKS 
29 00. WINDOW 
30 AGAIN 

30 ALIT 

30 ALLOCATE 

30  RLLOT 

30 AND 

30  RPLRV 

30 APPEND 

30 APPEND. BLOCKS 
30 APPEND. ITEMS 
30 APPLE. MENU 
30 ARC 

31 ASSIGN 

31 AUTO. KEY 

31 ЯКЕ 

31  B/BUF 

31 ВАК 

31  BACKPAT 


32  BLRCK 

32 BLANKS 

32 BLK 

32 BLOCK 

32  BLOCK-FILE 
32 BOLD 

32 BOOLEAN 

32 BRANCH 


32  BRING.TO.FROHT 


33 CARTESIAN 
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CASE 37  DERLLOT 

CENTER 38 DEBUG 
CHARWIDTH 38 DEBUG.ONLY 
CHECK. BOX 38 DECIMAL 

CIRCLE 36 DEFAULT.ACTIVATE 
CLERR 38 DEFINITIONS 
CLIP>CONTENT 38 DELETE 

CLOSE 38 DELETE.BLOCKS 
CLOSE. ALL 38 X DELETE.HENU 
CLOSE . BOX 38 DEPTH 

CLOSE .WINDOW 38 — DEUICE.COHTROL 
CHOUE 39  DEUICE.STRTUS 
CHOUE > 39 A DFLT.COHTROL 
CNT 39  DFLT.HIHDOU. TAIL 
CNTR 39  DIGIT 

COL 39 DIR 

COMMAND. KEY 39 DIRECTORY 
COMPILE 39  DISCRRD.UPDRTES 
COMPILING 39 DISK 

CONDENSED 39  DISK.EUEHT 
CONFIGURE.PRINTER 39 DISPOSE.CONTROL 
CONSOLE 40 DKGRAY 
CONSTANT 40 DO 

CONTEXT 40 — DO.EUENTS 
CONVERT 40 DOES? 

COPV 40 DOT 

cos 40  DOHN. BUTTON 
COUNT 40 DP 

CR 40 DPL 

CRERTE 41  DRARH.CHRR - 
CRERTE.BLOCKS.FILE 41 — DRRU.CONTROLS 
CRERTE .F ILE 41  DRRH.MEHU.BRR 
CRLF 41  DRRH.TO 

CSP 41  DRAHSTRING 
CURRENT 41 DROP 

CURRENT-F ILE 41  DRUR. EVENT 
CURRENT. POSITION 41 DUP 

CURSOR 41 DBUPOR 

CURSOR . CHAR 41 EJECT 

DAYS> 42 ELSE 
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EMIT 

EMPTY 
EHPTV-BUFFERS 
ENCLOSE 
ENDCASE 
ENDOF 

ENTER. FLAG 
ERASE 

ERASE. RECT 
ERROR 

ERROR" 
EVENT . LOOP 
EVENT . RECORD 
EVENT . TABLE 
EVENTS 
EXECUTE 

EXIT 

EXPECT 
EXTENDED 
EXTERNAL 
FALSE 

РСВ LEN 
FENCE 

FIELD 

F ILE ERROR . MSGS 
F ILE, TYPE 
FILL 

FIND 

FIND .CONTROL 
FIND.WINDOW 
FIRST 

FLUSH 

FLUSH. EVENTS 
FLUSH. FILE 
FLUSH. VOL 
FHT .DATE$ 
FT. TIMES 
FOLLOWER 
FORGET 

FORTH 
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FRAME 

FROM. CURRENT 
FROM. END 
FROM. HEAP 
FROM. START 
FRONT .WINDOW 
FUNC>L 

FUNC>H 

GET 

СЕТ. CONTROL 
GET . CURSOR 
GET. DATE$ 
GET. EOF 
GET.FILE. INFO 
GET. FILE. ТҮРЕ 
GET. ICON 

GET .LINE HEIGHT 
GET .PICTURE 
GET .PIXEL 
GET.REC.LEN 
GET. SCRAP 

GET . TEXTFONT 
GET. TERTHODE 
бЕТ.ТЕЯТ512Е 
GET. TEXTSTYLE 
GET. TIMES 

GET .WINDOW 
GET. XYOFFSET 
GET .NVPIUOT 
GET .XYSCALE 
GINIT 

GLOBAL >LOCAL 
GRAY 

HANDLE .S12E 
HANDLER 
HBAR . BOUNDS 
HERE 

HEX 

HIDE .CURSOR 
HIDE РЕН 
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HIDE.HIHDOH 
HILITE.CONTROL 
HILITE.HEHU 
HILITE.WINDOW 


ILLEGAL .F ILE 
IMMEDIATE 

IN. BUTTON 

IN. CHECKBOX 
IN. CLOSE . BOX 
IN. DESKTOP 
IN. DRAG .BOX 
ІН, HEAP 

IN. LOWER WINDOW 
ІН. MENUBAR 
IN. SIZE. BOR 
IN.SYS WINDOW 
IH. THUMB 
INCLUDE" 
INDEM 
INIT.CURSOR 
INITIRLS 
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INPUT. NUMBER 
INPUT. STRING 
INTERNAL 
INTERPRET 
INVALID. ВЕСТ 
INVERT 
10-RESULT 
ITALIC 

ITEM. CHECK 
ITEM. ENABLE 
ITEM. ICON 
ITEM. MARK 
ITEM. STYLE 

J 

KEY 

KEY. DOWN 
KEY. STROKE 
KEY. UP 
KILL.CONTROLS 
KILL. 10 
L>FUNC>L 
LATEST 

LEAVE 

LIMIT 

LINES 

LINE. HEIGHT 
LIST 

LIT 

LITERAL 
НОЦЕ 

LMOQVE> 

LOAD 

LOAD. SCRAP 
LOCAL >GLOBAL 
LOCK. FILE 
LOCK. FONT 
LOCK. HANDLE 
LOOP 

LOWER. CASE 
LONER. LEFT 
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LTGRRV 

n* 

n/noD 

MAC. COH 
ПАС. CONSOLE 
nRC.F ILES 
MAC. R/H 
MAKE . RECT 
MAKE. TOKEN 
HATCH 

MAX 

MAK. X 
ПАК. Y 
MENU . ENABLE 
MENU. HANDLE 


MENU. SELECTION: 


MENUS 

MIN 

MINIMUM. OBJECT 
MINIMUM. VOCAB 
nop 

MONTHS 
MOUSE . BUTTON 
HOUSE . DOUN 


MOUSE . DOWN. RECORD 


MOUSE . UP 


MOUSE . UP . RECORD 


MOUSE. NAS. . 


NETWORK. EVENT 
HEU . MENU 

NEN. STRING 
NEW. TOKEN 
NEW. WINDOW 
NEXT. FCB 


Page 13 - 97 


Mord 


NEXT. PTR 

NFA 

NO.CLIP 

NO. ECHO 

HO. RETRY 
HON. PURGRBLE 
NOT 

NOT. VISIBLE 
HOTPRTBIC 
HOTPRTCOPV 
HOTPRTOR 
NOTPATXOR 
MOTSRCBIC 
HOTSRCCOPV 
HOTSRCOR 
NOTSRCXOR 
NULL . EVENT 
HUMBER 
OBJECT FULL! ! 
OBJECT . HANDLE 
OBJECT . ROOM 
OF 

OFF 

OFF . CONTROL 
OFFSET 

ON 
ON.ACTIVATE 
ON. CONTROL 
0H . ERROR 

ON . UPDATE 
OPEN 
OPEN. DEV СЕ 
ОРЕН . PORT 
OPEN . PRINTER 
ОРЕН. RSRC 
OPEN . SOUND 
OPTIONS. MENU 
OR 

05, TRAP 
OTHERWISE 
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OUTLINE 
OVAL 

OVER 

PAD 

PAGE 
PAGE . DOWN 
PAGE . UP 
PRINT 

PATBIC 
PATCOPY 
PATOR 
PATTERN 
PATXOR 

PAUSE 

PEN. NORMAL 
PENMODE 
PENPAT 
РЕН512Е 

РЕВ 

РІСК 

РІНІН 

PLAY 

PLOT. ICON 
PNTR 

POCKET 

POINT 
POIHT>XY 
POLYGON 
POSITION. FIXED 
POST .EVENT 
PREY 

PRINT 
PRIHT.BITS 
PRIHT.FCB 
PRINT. SCREEN 
PRINT WINDOW 
PRINTER 
PRINTER. ONLY 
PTINRECT 
PURGABLE 
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PUSH. BUTTON 
PUT . SCRAP 
QUERY 

QUIET 

QUIT 

Ae 

R/U 

RO 

R> 

R>DROP 

Re 

RADIO. BUTTON 
RANDOM 

RANGE 
RANGE . OF 
RDRRU 
RERD.F | SED 
RERD. TEXT 
READ. VIRTUAL 
REAL . FONT? 
RECOVER 
RECOVER . HANDLE 
RECT 
RECTANGLE 
REG. SET 
REGION 
RELEASE 
REMOVE 
RENAME 
REPEAT 

ВЕЅ 1 2Е . HANDLE 
RESIZE. OBJECT 
RESIZE. VOCAB 
RESUME 

RETRY 
REWIND 

RMOVE 

ROLL 

ROOM 

ROT 
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АР! 

RPe 

RRECTANGLE 
RSRUNEN 

RST. PRINTER 

50 

SAVE-BUFFERS 
SCALE 

SCALE >XY 

SCALE >Y 

SCAN. FROM 

SCR 
SCRAP . COUNTER 
SCRAP . HANDLE 
SCRAP . LEN 
SCRATCH 

SCREEN. BITS 
SCROLL 
SCROLL . LEFT/RIGHT 
SCROLL . UP 
SCROLL . UP /DOHH 
SEED 

SELECT 

SELECT .WINDOW 
SEND. BEHIND 
SET. CONTROL 

SET . CONTROL . MAX 
SET. CONTROL. МІН 
SET . CONTROL . RANGE 
SET . CURSOR 

SET. EOF 

SET. FENCE 

SET. FILE. INFO 
SET. I TEN$ 

SET. ORIGIN 
SET.REC.LEN 
SET. STRING 

SET. .WTITLE 
SETUP. SERIAL 
SHADOW 
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SHOW 

SHOW. CONTROLS 
SHOW. CURSOR 
SHOW. PEN 
SHOW. HINDO 
SIGH 

SIN 

SIZE. BOX 
SIZE. WINDOW 
SMUDGE 
SOUND. FCB 


STACK . ERROR 
START. FLAG 
STATE 
STATUS 
STILL. DONHN 
STRINGHIDTH 
SWAP 
SYS.FILE 
SYS WINDOW 
SYSBEEP 
SVSPRRITS 
SYSTEM. EDIT 
TRB.STOPS 
TERCTIURTE 
TECRLTEXT 
TECLICK 
TECOPY 
TECUT 
TEDERCT IVATE 
TEDELETE 
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TEDISPOSE 
TEIDLE 

TE INSERT 
TEKEY 

TENEN 
TEPASTE 
TERECORD 
TESCROLL 
TESET. JUST 
TESET . SELECT 
TESET. TEXT 
TEST. CONTROL 
TEUPDRTE 
TEXT . BOX 
TEXT .CLICK 
TEXT FIELD 
ТЕХТ. RECORD 
TEXTFONT 
TEXTMODE 
TEXTS 12Е 
TEXTSTYLE 
THEN 

THIS. CONTROL 
THIS. PART 
THRU 

TIB 
TICKCOUNT 
TO.HEAP 
TOGGLE 
TOGGLE . CONTROL 
TOKEN. FOR 
TOKEN>ADDR 
TONE 

TRACE 

TRACE. TOKEN 
TRACK . CONTROL 
TRIAD 

TRUE 

TRUNK 

TRY 
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Hord 


TYPE 

UNDERL ІНЕ 
UNIQUE . NSG 
UNLOAD. SCRAP 
UNLOCK .F ILE 
UNLOCK . HRHDLE 
UNTIL 

UP . BUTTON 
UPDRTE 
UPDATE . EVENT 
UPPER 

UPPER. LEFT 
USE 

USE" 

USER 
VARIABLE 
UBRR . BOUNDS 
UECTOR 
VERSION 

VERS LONS 
VIRTUAL 
VOCABULARY 
ut 

ES 

н, 
И. ATTRIBUTES 
И. BEHIND 

И. BOUNDS 

И. LINKAGE 

W. TITLE 

И. TYPE 

u/ 

W/nop 
W>FUNC>L 
ИЯТ 

We 

WAIT 

WAIT MOUSE . UP 
WATCH 
CONSTANT 
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Hord 


WHILE 
WHITE 
WINDOW 
ULIT 

100 

WORD 

WORDS 
WRITE FIXED 
WRITE. TEXT 
URITE.UIRTURL 
ХЕКРЕСТ 
SLRTE 

KOR 
КҮ>Р0ІНТ 
RYAKIS 
XYOFFSET 
КҮРІ00Т 
KYSCALE 
ZERO. SCRAP 
[ 
[COMPILE] 
] 

{ 
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MacFORTH Glossary Index by Subject 


MacFORTH Glossary 


Раде Word 
(21) R» 
(21) R>DROP 
(21) Re 
(21) ROLL 
(24) ROT 
(24) ВР! 
(25) RPe 
(25) $0 
(41) SP! 
(41) SPe 
(41) СИЯР 
(67) 

(69) 

(71) 

Page* 

(19) 

(19) 

(19) 

(23) 

(24) 

(24) 

(72) 
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Hord Page* 
* (11) 
*/ (11) 
*/MOD (11) 
+ (11) 
- (16) 
/ (19) 
¿non (19) 
OMAK (20) 
1+ (20) 
1- (20) 
10+ (20) 
10- (20) 
16% (20) 
16+ (20) 
16- (20) 
16/ (20) 
2% (21) 
2+ (21) 
2- (21) 
2/ (21) 
3+ (22) 
3- (22) 
4* (22) 
4+ (22) 
4- (22) 
4/ (22) 
5+ (22) 
5- (22) 
6+ (22) 
6- (22) 
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AND 


cos 
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Раде? 


(22) 
(22) 
(22) 
(23) 
(23) 
(23) 
(24) 
(29) 
(30) 
(32) 
(36) 
(45) 
(59) 
(59) 
(60) 
(60) 
(61) 
(62) 
(64) 
(67) 
(72) 
(85) 
(88) 
(88) 
(90) 
(90) 
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)CONSTRHT 
)U 

+! 
+FOLLOWER 
2! 

2e 

«Ме 

>H!< 

Же 

?HERP .S12E 
e 

ee 

eCLOCK 

С! 

Ce 

FRON. HEAP 
HANDLE. SIZE 
1! 
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Word 


iCe 

ІН. HEAP 

LMOVE 

LIQUE» 

LOCK .FONT 
LOCK . HRHDLE 
NON. PURGRBLE 
OFF 

ON 

PURGABLE 
RECOVER. HANDLE 
RES | ZE . HANDLE 
RRECTANGLE 
RSRUNEN 

TO. HEAP 
TOGGLE 
UNLOCK . HANDLE 
H! 

Ты 

lle 
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Page* 


(52) 
(54) 
(58) 
(58) 
(56) 
(58) 
(64) 
(65) 
(65) 
(71) 
(73) 
(74) 
(75) 
(75) 
(84) 
(84) 
(86) 
(87) 
(87) 
(89) 
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Contro! Structures; 


Hord Paget Word Paget 
(*L00P) (07) l (51) 
(D0) (08) IF (52) 
(LOOP) (09) IFEND (52) 
(OF) (10) IFTRUE (53) 
+ 00Р (13) J (56) 
OBRANCH (20) LEAVE (57) 
RGRIN (30) 100Р (58) 
BACK (31) OF (65) 
BEGIN (31) OTHERWISE (67) 
BRANCH (32) RANGE . OF (72) 
CASE (33) REPEAT (14) 
DO (40) THEN (83) 
ELSE (42) UNTIL (86) 
ENDCASE (42) WHILE (89) 
ENDOF (43) 

EXIT (44) 

Console 1/0: 

Word Роде? Nord Page* 
.ТҮРЕ (19) МАС. CON (59) 
?KEVSTROKE (26) HAC. CONSOLE (59) 
?TERMINRL (27) NO. ECHO (63) 
CNT (35) PAGE (67) 
CNTR (35) PNTR (69) 
COL (35) QUERY (71) 
CONSOLE (35) SCROLL (76) 
CR (36) SCROLL . UP (16) 
CURSOR . CHAR (37) SPACE (79) 
OFLT. CONTROL (39) SPACES (80) 
EHIT (42) TRB.STOPS (81) 
ENTER. FLAG (43) TVPE (85) 
EXPECT (44) ХЕКРЕСТ (90) 
KEY (56) 

LINES (57) 
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Numeric Conversion: 


Word Paget Hord Page* 
зу (05) FHT.DRTE$ (46) 
16 (05) FHT.TIMES (46) 
| (18) GET. DATE$ (48) 
.DRTE$ (18) GET. TIME$ (49) 
.R (18) HEX (50) 
ТІНЕ (19) HLD (51) 
<3 (23) HOLD (51) 
? (25) MONTHS (61) 
20875 (25) NUMBER (65) 
?PUNCT (27) SEED (77) 
?SECONDS (27) S16H (79) 
BRSE (31) SIN (79) 
CONUERT (36) SQRT (80) 
DAYS> (37) TICKCOUNT (84) 
DECINAL (38) 

DIGIT (39) 

DPL (40) 

ENCLOSE (42) 


Hass Storage: 


Hord Paget Hord Paget 
*F ILES (05) ?0PEN (26) 
(GET.FILE) (09) eF ILE. НАМЕ (28) 
(LINE) (09) ADD. BLOCKS (29) 
(PUT. FILE) (10) ALLOCATE (30) 
(ААИ) (10) APPEND. BLOCKS (30) 
+HAX. BLK® (13) ASSIGN (31) 
+REC. SIZE (13) BLOCK (32) 
+SCA® (13) BLOCK-FILE (32) 
>FCB (24) BUFFER (33) 
?BLOCKS .FILE (25) CLOSE. ALL (34) 
?EUF (26) COPV (36) 
?F ILES (26) CRERTE . BLOCKS .F ILE (36) 
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Mass Storage (continued): 


Word Page® Word Раде? 

CREATE. FILE (37) POINT (69) 

CURRENT-F ILE (37) POSITION. FIXED (69) 

CURRENT.POSITION (37) PREY (70) 

DELETE (38) RAW (71) 

DELETE . BLOCKS (38) READ .F RED (72) 

DISK (39) READ. TEXT (73) 

EJECT (41) READ . VIRTUAL (73) 

EMPTY-BUFFERS (42) RENOVE (73) 

EXTERNAL (45) RENANE (73) 

FCB. LEN (45) REWIND (74) 

FILE.ERROR.NSGS (45) SAVE-BUFFERS (75) 

FILE. TYPE (45) SELECT (77) 

FIRST (46) SET. EOF (77) 

FLUSH (46) SET. FILE. INFO (78) 

FLUSH.FILE (46) SET. REC. LEN (78) 

FLUSH. VOL (46) SVS.FILE (81) 

FRON. CURRENT (47) UNLOCK. F ILE (85) 

FRON. END (47) UPDATE (86) 

FRON. START (4?) USE (86) 

GET. EOF (48) USE" (86) 

GET.FILE. INFO (48) VIRTUAL (87) 

GET. FILE. TYPE (48) WRITE FIXED (90) 
. BET. ICON (48) WRITE. ТЕХТ (90) 

GET.PICTURE (48) URITE.UITRTURL (90) 

GET.REC.LEN (48) 

ILLEGAL .F ILE (53) 

INCLUDE" (54) 

INTERNAL (55) 

10-ВЕ5Ш Т (55) 

КІШ.10 (56) 

LIMIT (5?) 

LOCK .FILE (58) 

HAC. FILES (59) 

MAC. RZN (59) 

NEXT . FCB (63) 

OFFSET (65) 

OPEN (66) 

OPEN. RSRC (66) 
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Uocabulari n 
Dictionary Management : 


Hord Paget Word Paget 
*F IND (05) NFA (63) 
i (06) OBJECT .FULL!! (65) 
(FIND) (09) OBJECT . HANDLE (65) 
+F IND (12) OBJECT . ROON (65) 
; (16) PFR (68) 
Ғы (16) RESIZE. OBJECT (74) 
-FIND (17) RESIZE. VOCAB (74) 
-FOUND (17) SET . FENCE (77) 
-LATEST (17) TRUNK (85) 
?AL IGN (25) VOCABULARY (87) 
ALLOT (30) М, (88) 
APPEND (30) 

AXE (31) 

BHEAD (31) 

с, (33) 

CONTEXT (36) 

CURRENT (37) 

DEALLOT (37) 

DEFINITIONS (38) 

DP (40) 

ENPTY (42) 

FENCE (45) 

FIND (45) 

FORGET (47) 

ҒОВТН (47) 

НЕВЕ (50) 

LATEST (57) 


MINIMUM. OBJECT (61) 
MINIMUM. VOCAB (61) 
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Compiler: 


Hord Раде? Hord Paget 
ICSP (04) LOAD (58) 
j (04) MAKE. TOKEN (60) 
' INTERPRET (06) NEW. TOKEN (63) 
( (06) NEXT.PTR (63) 
(;CODEe) (08) POCKET (69) 
(>CODE) (08) QUIT (71) 
(WORD) (11) SCAN. FRON (76) 
“1080 (12) SHUDGE (19) 
*THRU (13) STRTE (80) 
е» (16) THRU (84) 
: (23) TIB (84) 
j (23) TOKEN. FOR (84) 
>IN (24) TOKEN>ADDR (84) 
?LOADING (26) USER (87) 
ALIT (30) VARIABLE (87) 
BLK (32) HCONSTRNT (89) 
COMPILE (35) ULIT (89) 
COMPILING (35) WORD (90) 
CONSTANT (36) [ (91) 
CREATE (36) [COMPILE] (91) 
DOES> (40) ] (91) 
EXECUTE (44) { (91) 
FIELD (45) 

INNEDIATE (53) 

INTERPRET (55) 

LIT (57) 

LITERAL (5?) 

Toolbox face: 

Hord Раде? Word Page* 
ИТ (21) ШИ! (62) 
FUNC>L (47) 05. TRAP (67) 
FUNC>H (48) H»FUNC»L (88) 
L>FUNC>L (56) WONT (89) 
NT (62) 
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Error Handling: 


Word 


( (RBORT)) 

( (ERROR) ) 
(ABORT") 
(ABORT) 
(ERROR") 
(ERROR) 
(EXCPT) 
(ON. ERROR) 
. ABORT 
.FILE.ERROR 
5 

?СОЙР 

?CSP 

?ЕКЕС 

?F ILE . ERROR 
?PRIRS 
?5ТАСК 


Пепиз: 


Hord 

(NENU. SELECTION: ) 
APPEND. ITENS 
DELETE . MENU 
DRAN . MENU. BAR 
HILITE. MENU 
ІН. HEHUBRR 
ITEN. CHECK 
ITEN. ENABLE 
ITEM. ICON 
ITEN. MARK 
ITEN. STYLE 
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Paget 


(07) 
(07) 
(08) 
(08) 
(08) 
(08) 
(09) 
(10) 
(18) 
(18) 
(19) 
(25) 
(25) 
(26) 
(26) 
(26) 
(2?) 


Раде® 


(09) 
(30) 
(38) 
(41) 
(51) 
(54) 
(55) 
(55) 
(56) 
(56) 
(56) 
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Word 


RBORT 
ABORT" 
CSP 
ERROR 
ERROR" 
NO. RETRY 
ON. ERROR 
RECOUER 
REG. SET 
RESUME 
RETRV 
TRV 


Word 


ПЕНИ. ENABLE 
MENU. HANDLE 


MENU. SELECTION: 


MENUS 

NEW. NENU 
OPTIONS. NENU 
SET. ITEN$ 
SYSTEM. EDIT 


Paget 


(29) 
(29) 
(37) 
(43) 
(43) 
(63) 
(66) 
(03) 
(73) 
(74) 
(74) 
(85) 


Paget 


(60) 
(60) 
(60) 
(60) 
(62) 
(66) 
(78) 
(81) 
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Hindows: 


Word Page* Word Paget 
(10H. ACTIVATE) (06) HIDE .WINDOW (50) 
(10N. UPDATE) (06) HILITE WINDOW (51) 
+HBAR (12) IN. CLOSE. BOX (53) 
+0N. ACTIVATE (13) IN. DESKTOP (53) 
«ОН. UPDATE (13) IN. DRAG. BOX (53) 
+UBAR (14) IN.LOWER.WINDOW (54) 
+H. ATTRIBUTES (14) IN. SIZE. BOX (54) 
+H. BEHIND (14) IN. SYS. WINDOW (54) 
+H. LINK (14) INVALID. ВЕСТ (55) 
+H. TYPE (14) LINE HEIGHT (57) 
+NBOUNDS (14) NEW. WINDOW (63) 
+NCBOUNDS (15) NO.CLIP (63) 
+HFILE.PTR (15) NOT.UISIBLE (64) 
*HLINE.HEIGHT (15) ON. ACTIVATE (65) 
+WREFCON (15) ON. UPDATE (66) 
«TITLE (15) SCROLL.LEFT/RIGHT (76) 
*8VBIRS (15) SCROLL .UP/DOUN (16) 
+KYOFFSET (15) SELECT WINDOW (77) 
«КҮР LUOT (15) SEND . BEHIND (77) 
*RUPOS (16) SET .HTITLE (78) 
«RVSCRLE (16) SHOW. CURSOR (78) 
>S¥S WINDOW (25) SHOW . PEN (78) 
? 1N. CONTROL (26) SHON. WINDOW (79) 
RDD. HINDON (29) SIZE.BOX (79) 
BRING. TO. FRONT (32) SIZE. WINDOW (19) 
CHECK. ВОХ (34) SYS WINDOW (81) 
CLIP>CONTENT (34) UBAR . BOUNDS (87) 
CLOSE (34) Н.ВТТВ1ВИТЕ5 (88) 
CLOSE . BOX (34) И. BEHIND (88) 
CLOSE WINDOW (34) WW. BOUNDS (88) 
DEFAULT.ACTIVATE (38) H. LINKAGE (88) 
DFLT.WINDOW.TAIL (39) W. TITLE (88) 
DISCARD.UPDATES (39) H. TYPE (88) 
FIND. CONTROL (45) WINDOW (89) 
FIND WINDOW (46) 

FRONT .WINDOW (4?) 

GET .WINDOW (49) 

HBAR . BOUNDS (50) 
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с? 


ics: 


Mord 
IPENSTRTE 
IPOINT 
!RECT 
(LINE. TO) 
(HOUE) 
(HOUE . TO) 
(РЕМ 1 2Е) 
(TEXTSIZE) 
+CARTES IAN 
+POINT 
-POINT 
еРЕН 
ePENSTRTE 
ePOITNT 
eRECT 

RRC 
BRCKPRT 
BLRCK 

BOLD 
CARTESIAN 
CENTER 
CHARWIDTH 
CIRCLE 
CLEAR 
CONDENSED 
CURSOR 
DKGRAY 

DOT 

DRAW. CHAR 
DRAW. TO 
DRAWSTRING 
ERRSE . RECT 
EXTENDED 
FRANE 

СЕТ. CURSOR 
GET. LINE. HEIGHT 
GET. P IKEL 
GET. TEXTFONT 
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Paget 


(04) 
(04) 
(04) 
(09) 
(10) 
(10) 
(10) 
(10) 
(12) 
(13) 
(17) 
(28) 
(28) 
(28) 
(29) 
(30) 
(31) 
(32) 
(32) 
(33) 
(33) 
(33) 
(34) 
(34) 
(35) 
(37) 
(40) 
(40) 
(41) 
(41) 
(41) 
(43) 
(44) 
(47) 
(48) 
(48) 
(48) 
(49) 
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Hord 


GET. TEXTNODE 
СЕТ. TEXTSI2E 


GET. TEXTSTYLE 


GET .XYOFFSET 
СЕТ. XYP LUOT 
GET. XYSCALE 
GINIT 
GLOBAL »LOCRL 
GRAY 
HIDE.CURSOR 
HIDE .PEN 

| BERI 
INIT.CURSOR 
INVERT 
ITALIC 
LOCAL >GLOBAL 
LOWER. LEFT 
LTGRAY 
MAKE . ВЕСТ 
ПАХ. & 

Пах." 
MOUE. TO 
NOTPATBIC 
NOTPRTCOPV 
NOTPRTOR 
NOTPATXOR 
NOTSRCBIC 
NOTSRCCOPY 
HOTSRCOR 
NOTSRCHOR 
OPEN. PORT 
OUTLINE 
OVAL 

PAINT 
PATBIC 
PATCOPY 
PATOR 
PATTERN 


Paget 


(49) 
(49) 
(49) 
(49) 
(49) 
(49) 
(49) 
(50) 
(50) 
(50) 
(50) 
(52) 
(54) 
(55) 
(55) 
(58) 
(59) 
(59) 
(59) 
(60) 
(60) 
(62) 
(64) 
(64) 
(64) 
(64) 
(64) 
(64). 
(64) 
(64) 
(66) 
(67) 
(67) 
(67) 
(68) 
(68) 
(68) 
(68) 
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Graphics (continued): 


Word 
PATXOR 
PEN. NORMAL 
PENHODE 
PENPAT 
PENS IZE 
PLAIN 
PLOT. ICON 
POINT>XY 
POLYGON 
PTINRECT 
RORAW 
REAL . FONT? 
RECT 
RECTANGLE 
REGION 
АМОЏЕ 
SCALE 
SCALE >KY 
SCALE >¥ 
SCREEN. BITS 
SET. CURSOR 
SET. ORIGIN 


Page? 


(68) 
(68) 
(68) 
(68) 
(68) 
(69) 
(69) 
(69) 
(69) 
(70) 
((2) 
(73) 
(73) 
(73) 
(73) 
(74) 
(76) 
(76) 
(76) 
(16) 
(77) 
(78) 


String Hanipulat ion: 


Word 


$RDDR 
$LIT 
($LIT) 
(.") 
-TEXT 
-TRRILING 


WORD 
BLANKS 
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Page* 


(04) 
(06) 
(06) 
(07) 
(07) 
(17) 
(18) 
(18) 
(27) 
(32) 
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Word 


SHADOW 
SRCBIC 
SRCCOPV 
SRCOR 
SRCKOR 
STRINGHIDTH 
TEXTFONT 
TERTHODE 
TEXTSIZE 
TEXTSTYLE 
UNDERL ІНЕ 
UPPER. LEFT 
VECTOR 
WATCH 
WHITE 
&LRTE 
XY>POINT 
RYARIS 
XYOFFSET 
ЖҮР LUOT 
RYSCALE 


Раде? 


(78) 
(80) 
(80) 
(80) 
(80) 
(80) 
(83) 
(83) 
(83) 
(83) 
(85) 
(86) 
(87) 
(89) 
(89) 
(90) 
(90) 
(91) 
(91) 
(91) 
(91) 


Page* 


(34) 
(34) 
(36) 
(37) 
(43) 
(45) 
(60) 
(67) 
(86) 
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User Interface: 


Hord Paget Hord Раде? 
(GET) (09) STATUS (80) 
»LIST« (24) STILL. DOWN (80) 
?ROON (2?) TRIAD (85) 
elNIT (28) VERSION (87) 
eMOUSE (28) VERSIONS (87) 
eNOUSE. DN (28) WAIT (89) 
eNQUSEXY (28) WORDS (90) 
BYE (33) 

DIR (39) 

DIRECTORY (39) 

FOLLOWER (46) 

GET (48) 

10. (52) 

HOUSE . BUTTON (61) 

RELERSE (73) 

SHOW (78) 


Machine Interface: 


Word Page* 
ISR (04) 
>JSR (24) 
еВ (29) 


DEVICE. CONTROL (38) 
DEVICE. STATUS (39) 
START. FLAG (80) 
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Нога Page* Шоға Paget 
(.5) (07) ROO (75) 
(TRRCE) (10) SCR (16) 
?TRRCE (21) SCRRTCH (76) 
DEBUG (38) STACK . ERROR (80) 
DEBUG . ONLV (38) TRRCE (84) 
DEPTH (38) TRACE . TOKEN (85) 
HANDLER (50) UNIQUE . MSG (85) 
INDEX (54) 

INITIALS (54) 

INPUT . NUMBER (55) 

INPUT. STRING (55) 

LIST (57) 

LOWER. CASE (59) 

NEEDED (62) 

PAUSE (68) 

QUIET (71) 

R® (71) 


Printer and Serial: 


Word Раде? 
+PRINTER (13) 
CONFIGURE.PRINTER (35) 
OPEN. DEVICE (66) 
OPEN. PRINTER (66) 
PRINT (70) 
PRINT.BITS (70) 
РВЇНТ.ЕСВ (70) 
PRINT. SCREEN (70) 
PRINT. WINDOW (70) 
PRINTER (70) 
PRINTER. ONLY (70) 
RST. PRINTER (75) 
SETUP . SERIAL (78) 
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Event Related: 
Word 


-KEYBOARD 
?EUENT 
e@EVENT 
ABORT. EVENT 
ACTIVATE . EVENT 
APPLE . MENU 
RUTO. KEY 
COMMAND. KEV 
DISK. EVENT 
DO. EVENTS 
DRUR . EVENT 
EVENT. LOOP 
EVENT. RECORD 
EUENT . TABLE 
EVENTS 
FLUSH. EVENTS 


Constants: 


Hord 


1 2HOURS 
1DAY 
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Раде? 


(17) 
(26) 
(28) 
(29) 


~ (29) 


(30) 
(31) 
(35) 
(39) 
(40) 
(41) 
(43) 
(44) 
(44) 
(44) 
(46) 


Page* 


(04) 
(05) 
(05) 
(05) 
(05) 
(05) 
(16) 
(16) 
(16) 
(17) 
(19) 
(20) 
(20) 
(20) 
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Word Раде? 
KEV. DOWN (56) 
KEY. STROKE (56) 
KEY. UP (56) 
HOUSE . DOWN (61) 
NOUSE. DOUN. RECORD (61) 
HOUSE .UP (61) 
MOUSE.UP.RECORD (61) 
HOUSE . HRS. . (62) 
НЕТШОВК. EVENT (62) 
NULL. EVENT (65) 
POST. EVENT (70) 
UPDATE . EVENT (86) 
WALT. MOUSE. UP (89) 
Hord Page? 
1HOUR (21) 
2 (21) 
3 (21) 
4 (22) 
B/BUF (31) 
BL (32) 
BS (32) 
ел (33) 
June 6, 1984 


Sound: 


Hord Раде? 

?SÜUND (27) 

APLAY (30) 

HUSH (51) 

OPEN. SOUND (66) 

PLAY (69) 

SOUND. FCB (79) 

SYSBEEP (81) 

TONE (84) 

Toolbox: 

Word Page® Hord Раде? 
(TRACK.CONTROL) (11) PUSH. BUTTON (71) 
*TUISRECT (14) PUT . SCRAP (71) 
DISPOSE.CONTROL (39) RADIO. BUTTON (72) 
DOWN. BUTTON (40) SCRAP. COUNTER (76) 
DRAW. CONTROLS (41) SCRAP . HANDLE (76) 
GET. CONTROL (48) SCRAP . LEN (76) 
GET. SCRRP (48) SET. CONTROL (77) 
HILITE. CONTROL (50) SET.CONTROL.MAK (77) 
IN. BUTTON (53) SET.CONTROL.MIN (77) 
IN. CHECKBOX (53) SET.CONTROL.RRNGE (77) 
IN. THUNB (54) SET. STRING (78) 
KILL. CONTROLS (56) SHOW. CONTROLS (78) 
LOAD. SCRAP (58) SYSPARNS (81) 
HUNGER (62) TERCT I VATE (81) 
NEW. STRING (62) TECALTEXT (81) 
OFF . CONTROL (65) TECLICK (81) 
ON. CONTROL (65) TECOPY (81) 
PAGE . DOWN (67) TECUT (81) 
PAGE. UP (67) TEDEACTI VATE (81) 
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Toolbox (continued): 


Word Page* 
TEDELETE (82) 
TEDISPOSE (82) 
TEIDLE (82) 
TEINSERT (82) 
TEKEY (82) 
TENEW (82) 
TEPASTE (82) 
TERECORD (82) 
TESCROLL (82) 
TESET. JUST (82) 
TESET. SELECT (82) 
ТЕЅЕТ . ТЕКТ (82) 
TEST CONTROL (82) 
TEUPDATE (82) 
TEXT. BOX (83) 
TEXT CLICK (83) 
TEXT. FIELD (83) 
TEXT. RECORD (83) 
THIS. CONTROL (83) 
THIS. PART (84) 


TOGGLE . CONTROL (84) 
TRACK . CONTROL (85) 


UNLORD . SCRRP (85) 
UP . BUTTON (86) 
СЕВО. SCRAP (91) 
ZERO. SCRAP (91) 
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MacFORTH Index 


Accessing files 
Allocation: 
of file space 
of memory 
Arrays 
Assigning Files 


Backup 

Beeper 

Blocks Files 
Creating 
Allocation 
Accessing Source 

Booting MacFORTH 

Buffers, block 


Cartesian Coordinates 
Case statement 
Catalog of files 
Comments 
Compilation 
Copy 
Create: 

files 

menus 

windows 
Cursor 

modifying 

hide 

show 
Cutting and Pasting 


index 


~A- 
9-7 thru 9-14 


9-12 
5-23,11-10 
9-21 
5-3,9-4 


1-2, 3-13 

11-20 

9-11 

9-11 

9-12 

9-13 

( see loading MacFORTH ) 
3-4 


-C- 


6-4 

Going FORTH 

( see Directory ) 
Going FORTH 
Going FORTH 
3-13 


9-6, 9-7 
£23 
4-3,8-2 


5-11,11-15 
9-10 
9-10 
3-14,11-16 
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Data files 
Debugging 
Delete: 

files 

menus 
Demos, editing 
Demos, loading 
Directory 


Editor 

entering 

exiting 

menu 

selecting a file 

ejecting a disc 
Error conditions, default 
Error 

Handling, user 

messages 

compiler 

interpreter 

recovery 

summary 

while loading 
Event actions, default 
Events list 


File: 
assignments 
blocks files 
closing files 
data files 
errors 
1/0 result codes 
numbers 
opening files 


index 


9-3,9-20,12-5 
12-3 

12-3 

11-6 

12-5 

3-11 

8-7 

8-9 
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position modes 
program files 
reading/writing data 
volumes 

Fixed files 

Fonts, Character 

Forgetting windows 


Glossary 
Graphics Initialization 


Hotline 


IF statement 
Including a File 
Input 

from keyboard 

number 

string 
Interrupt, user 
1/0 result codes 
Item execution 


Keystrokes 


Index 


-Ғ- (continued) 


9-16 

See File: blocks files 
9-7,9-9 

9-4,9-15 

9-8 

6-14 

9-7 


-6- 
Chapter 13 
6-4 


-Н- 
1-5 
-І- 


Going FORTH 
9-14 
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Levels 1,2,3 
Licensing Information 
Line Drawing 

Line Height 

Listing programs 
Loading blocks 
Loading MacFORTH 
Loops 

Lower Case 


MacFORTH environment 
Memory Allocation 
Memory Maps 
Menu 

bar item attributes 

creation 

deletion 

disable/enable 

display 

example 

execution 

items 

list 

modifying 
Mounting a Volume 
Multiple windows 


Options 
Origin, moving 
Output: 

text 


Index 
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to window 
graphics 
window 


Pen Characteristics 
Pointers to files 
Print, window 
Processor exceptions 


QuickDraw System 


Re-titling a window 
Relative graphics 
Recover (REVERT) 
Rotation, Coordinates 


Scaling coordinates 
Scroll 

Selecting a File 
Shapes 

Sound 

Special characters 
Storage map 
Strings 


Index 


-0- (continued) 
9-12 
10-4 
10-3 


-р- 


6-9 thru 6-13 
9-15 
4-8,10-3 
12-4 


6-24 

3-6 

3-2 

6-20 
5-20,11-19 
аке, 

11-11 

5-14 
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Техї: 
Characteristics 
Files 
Mode 
Output 
Size 
Style 

Timer 

Toolbox Interface 

Trig functions 

TRACE 


Virtual files 
Vocabulary Structure (FORTH) 


WHILE statement 
Window: 
assigning a program to 
attributes 
bounds 
closing a window 
event handling 
example 
defining 
forgetting 
function template 
hiding a window 
program 
show 
sizing 
title 
tracking the mouse 
Work files 


Index 


-y- 

9-11 

11-12, 11-14 
-W- 

Going FORTH 


5-17 
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